Private DB As DataBase
Private Rs As RecordSet
 
Sub GetAnzahlZeilen()
     Dim SQL As String
     Set DB = DBEngine.OpenDataBase(Pfad_u_Namen_Deiner_Access.MDB",False,False)
     SQL = "SELECT Count(*) As Anzahl From "Namen_deiner_Tabelle"
 
     Set Rs = DB.OpenRecordset(SQL, dbOpenDynaset)
 
     MsgBox Rs!Anzahl
End Sub