Database - inserimento In MDB Di Access Da Maschera A Recordset Con Filtro E Selezione Dato Da Inserire

ACCESS # Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Me.RecordSource = "Select * from CaricoIVA where dataentrata between #" & Me.Testo1 & "# and #" & Me.Testo2 & "#;"
C = Me.numero
Do While Not Me.Recordset.EOF
Me.NumeroDocEstero = C
C = C + 1
Me.Recordset.MoveNext
Loop
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click

End Sub