Dim Rs As Recordset
Dim SQL As String
 
SQL = "SELECT * FROM Tabelle WHERE Feld = 'Suchbegriff'"
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
  <font color=green>' Alle Treffer durchlaufen</font>
  Do Until Rs.EOF
    ...
    Rs.MoveNext
  Loop
Else
  MsgBox "Keine Treffer!"
End If