Ho fatto anche un'altra prova ma qui mi da sempre l'ultimo

codice:
Private Sub Form_Load()
Dim idText As String
Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset

If idText <> "0" Then
sqlstring = "select * from [Anagrafico Incarico] where ID like '*" & Replace(idText, "'", "''") & "*'"  'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
Set Db = OpenDatabase("C:\Progetto Immobiliare\database.mdb")
Set Rs = Db.OpenRecordset(sqlstring)
Set Data1.Recordset = Rs
If Not Data1.Recordset.EOF Then
Do While Not Data1.Recordset.EOF
Nome = (Data1.Recordset.Fields("ID"))
Data1.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
End If
End Sub