Dim Rs As Recordset
Dim SQL As String
 
SQL = "SELECT * FROM DeineTabelle WHERE Telefonnummer Is Null Or Telefonnummer" & _
  "= ''"
 
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
  <font color=green>' Jepp - leere Felder vorhanden</font>
  Do Until Rs.Eof
    ...
    Rs.MoveNext
  Loop
End If
Rs.Close
Set Rs = Nothing