ho fatto qualcosa del genere

Private Sub cmdRicerca_Click()

Dim SQL As String ' COMANDO SQL A SECONDA CHE SI TRATTI DI UNA INSERT O DI UN UPDATE
Dim conferma As String ' MESSAGGIO DI CONFERMA (SECONDO LO STESSO CRITERIO DESCRITTO SOPRA)

' COME SOPRA...

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\clienti.mdb"
SQL = "SELECT * FROM tabella WHERE targa = '" & txtrictarga & "'"
conferma = "Inserimento effettuato con successo"


' ESEGUO REALMENTE IL COMANDO SQL CHE ARRIVA ALL'ESTERNO DELLA CONDIZIONE
cn.Execute (SQL)
rs.MoveFirst
Do Until rs.EOF
txtcognac.Text = rs("cognomeac")
txtnomeac.Text = rs("nomeac")
txtagenzia.Text = rs("agenzia")
txtcilindrata.Text = rs("cilindrata")
txtcodfisven.Text = rs("codicefiscalevend")
txtcodicefiscaleac.Text = rs("codicefiscaleac")
txtcognomeven.Text = rs("cognomevend")
txtcomunenascitaac.Text = rs("comunenascitaac")
txtcomuneven.Text = rs("comunenascitavend")
txtcostimanutenzione.Text = rs("costomanutenzione")
txtdataentrata.Text = rs("dataentrata")
txtdatanascitaac.Text = rs("datanascitaac")
txtdatanascitaven.Text = rs("datanascitavend")
txtdatauscita.Text = rs("datauscita")
txtmarca.Text = rs("marca")
txtmodello.Text = rs("modello")
txtnomeven.Text = rs("nomevend")
txtprezzovendita.Text = rs("prezzovendita")
txtresidenzaac.Text = rs("residenzaac")
txtresiven.Text = rs("residenzavend")
txttarga.Text = rs("targa")
txttelaio.Text = rs("telaio")
txttelefonoac.Text = rs("telefonoac")
txttelefonoven.Text = rs("telefonovend")
txtvalutazione.Text = rs("valutazione")

lblmessaggio.Caption = conferma
rs.MoveNext
Loop
cn.Close

End Sub