ops..

mi da sempre l'ultimo record

Perchè??????

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("Nome")) & (Data1.Recordset.Fields("Cognome"))
Data1.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
End If
End Sub