Rs.MoveFirst
Rs.Find "Vorname = 'Hugo'"
If Not Rs.EOF Then
  ' Gefunden
  ...
 
 
  ' Weitersuchen
  Do
    Rs.Find "Vorname = 'Hugo'", 1
    If Not Rs.EOF Then
      ' Gefunden
      ...
    End If
  Loop Until Rs.EOF
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de