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