....non posso cambiare tutto propio adesso....

guarda con questo codice io effettuo la ricerca solo che mi compare sempre il primo record!!!

codice:
Option Explicit
Public db As Database
Public rs As Recordset






Private Sub Form_Load()
On Error GoTo handle

Dim idText As String
Set db = OpenDatabase(App.Path & "\database.mdb")
Set rs = db.OpenRecordset("select * from [Anagrafico Incarico] where ID AND '*" & Replace(idText, "'", "''") & "*'")

Nome = (rs.Fields("Nome"))
Cognome = (rs.Fields("Cognome"))

rs.Close

handle:
Select Case Err.Number
Case 3021
MsgBox "Non esiste nessun Record "
End Select
End Sub
questi due campi vengono riempiti sempre con il primo record e non capisco perchè??

Nome = (rs.Fields("Nome"))
Cognome = (rs.Fields("Cognome"))