piu che altro non so se ho ben capito cosa intendevi. cmq ecco cosa ho fatto:
codice:
Private Function setEnctsDate(enctsDate As String)

    Dim rs As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
    
    Set rs = New ADODB.Recordset
    Set rs2 = New ADODB.Recordset
    
    rs.Open Me.currentQuery, CurrentProject.Connection, dbOpenDynaset, adLockOptimistic, dbSeeChanges
    
    If Not rs.EOF Then rs.MoveFirst
    While Not rs.EOF
    
        If (fraTblMode.value = 1) Then
            q = " UPDATE dbo_ccc_prepay_trx SET posting_encts_date = '" & enctsDate & "'"
            q = q & " WHERE ccc_prepay_trx_id = " & rs!ccc_prepay_trx_id
        Else
            q = " UPDATE dbo_ccc_postpay_trx SET posting_encts_date = '" & enctsDate & "'"
            q = q & " WHERE ccc_postpay_trx_id = " & rs!ccc_postpay_trx_id
        End If
        
        rs2.Open q, CurrentProject.Connection, dbOpenDynaset, adLockOptimistic, dbSeeChanges
        rs2.Close
    
        rs.MoveNext
    Wend
   
    Me.sfrmMain.Form.Requery
    
    ' Set the relative textbox
    MsgBox "Update done"
    
End Function
ma da errore: "cannot open active query'