Dim Rs As Recordset
Dim sSQL As String
 
sSQL = "SELECT * FROM Tabelle WHERE Name = 'Buchholz'"
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
  ' Gefunden! Das Recordset enthält jetzt alle Datensätze
  ' mit dem Namen "Buchholz"
End If

Dim Rs As Recordset
Set Rs = Db.OpenRecordset("SELECT * FROM Tabelle")
Rs.FindFirst "Name = 'Buchholz'"
If Not Rs.NoMatch Then
  ' Gefunden! Datensatzzeiger befindet sich jetzt
  ' auf den ersten Datensatz mit Name "Buchholz"
 
  ...
End If

' Nach nächsten Treffer suchen
Rs.FindNext "Name = 'Buchholz'"
If Not Rs.Eof Then
  ...
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de