dove sbaglio in questo ciclo?

[BOYROMA1]

ho fatto un ciclo che se non trova il record cercato mi da un msgbox ma non me lo da esce prima dal ciclo




public cercapraticavaria as string

cercapraticavaria=text1.text











If cercapraticavaria <> "" Then
Data2.Recordset.MoveFirst

While Not Data2.Recordset.EOF

While Not Data2.Recordset("cognome") = cercapraticavaria

Data2.Recordset.MoveNext
Wend

If Data2.Recordset("cognome") <> cercapraticavaria Then
MsgBox "Pratica non Trovata!", vbInformation, "Attenzione"
End If

Wend




grazie in anticipo

[Pieruccio]

Scusa ma non ti conviene passare il criterio di ricerca direttamente all'apertura del recordset?
Cmq se ti serve come lo hai esposto tu una soluzione potrebbe essere questa:
dim trovato as boolean
Do While Not Data2.Recordset.EOF
if Data2.Recordset("cognome") = cercapraticavaria then
trovato=true
exit do
end if
Data2.Recordset.MoveNext
Loop
If not trovato Then
MsgBox "Pratica " & cercapraticavaria & "non Trovata!", vbInformation, "Attenzione"
End If