Procedura con ADO

[pusolo]

Ciao Ragazzi,
volevo chiedere una mano sulla programmazione con ADO, per fare la ricerca in una serie di Record e trovare determinati dati, senza utlizzare sql, vorrei utilizzare il metodo Seek con sia fa con il Dao, visto che le librerie dell'ADO dal 2.1 in su permettono di utilizzare il metodo Seek, solo che non riesco a trovare il codice e poi il compilatore mi da l'errore che il provider utilizzato non supporta gli indici. Mi potete dare una mano, ve ne sarrei grato.

Ciao a tutti

[ragno75]

prova così

dim Trovato as boolean
Trovato = false
Adodc1.Recordset.MoveFirst

Do Until(Adodc1.Recordset.EOF)
If Adodc1.Recordset.Fields(1) = Text1.Text Then
Trovato = true
Exit Do
Else
Adodc1.Recordset.MoveNext
End If
Loop
if Trovato = true then
msgbox "Pwd OK"
else
msgbox "Dati Errati"
end if