Ciao a tutti

Ho un problema, da un form passo un valore corrispondente ad un'ID ad un'altro form che riceve questo valore e dovrebbe fare una ricerca nel database però ricevo errore, il valore arriva ma poi mi da errore '13' "tipo non corrispondente"

perche??

codice:
Private Sub Form_Load()
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


Grazie mille