Ovo je kod:
>>>IDbroj = text1.text
>>>If IDbroj <> "" Then
>>> With adoRS
>>> .MoveFirst
>>> .Find ("UserID='" & IDbroj & "'")
>>> Call PrikaziZapis
>>> End With
>>>End If
Kako u kodu da prepoznam da "adoRS.Find" metod nije
pronasao nijedan zapis sa IDbroj-em koji sam naveo.