... Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) 'Fehler Abfangroutine 2 If rs.RecordCount = 0 Then ...
Das kann übrigens nicht funktionieren. Schau dir nochmal die Doku zu DAO.Recordcount an, wann die Eigenschaft den "richtigen" Wert anzeigt.