[VB] aiuto con if

[Francesco_76]

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??

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

[Gigi84]

a che riga te lo da l'errore?

[Francesco_76]

Evidenzia questo di giallo

If idText <> 0 Then

[debbelandia]

idText cosa è ? è una variabile pubblica?

[Francesco_76]

idText è una variabile che passo dal primo form e contiene l'ID
il secondo al ricevimento della variabile deve elaborare un ricerca in base all'ID (passata appunto da idText) e restituirmi i record

[debbelandia]

che errore ti restituisce?

[Francesco_76]

errore '13' "tipo non corrispondente"
ed evidenzia questo di giallo

If idText <> 0 Then

[debbelandia]

fammi vedere dove gli inserisci il valore a idText

[Francesco_76]

Clicco su un valore di una ListBox ed invio l'ID
cosi

Private Sub List2_Click()
frmDettaglioRicercaCliente.idText = List2
frmDettaglioRicercaCliente.Show vbModal
End Sub

ma ho fatto una prova per vedere se il valore veniva passato facendolo stampare su di una label e funziona, si apre "frmDettaglioRicercaCliente" e nella label arriva il valore di idText.
Io devo una volta recuperato questo valore fare una ricerca per visualizzare i dettagli.

Grazie mille

[debbelandia]

ma idText di che tipo è string ho cosa?