Dim DB As Database
Dim Rs As Recordset
Dim Sql As String
 
Set DB = DBEngine.OpenDatabase("Dbname", False, False)
 
Sql = "SELECT * From Tabellennamen Where Feld = 4"
 
Set Rs = DB.OpenRecordset(Sql, dbOpendynaset)
 
If Not Rs.EOF Then
    Rs.MoveLast
    MsgBox Rs.Recordcount
End If
 
DB.Close 'schließt auch den Recordset