Private Sub OpenMyDB()
    DIM DB As DataBase
    Dim Rs As Recordset
 
    Set DB = DBEngine.OpenDataBase("Pfad_Name_der_DB", False, False, ";pwd = ")
 
    Set Rs = DB.OpenRecordSet("Name_der_Tabelle", dbOpenDynaset)
 
    If Not Rs.EOF Then
           With Rs
                  .MoveLast
                  .MoveFirst
                  MsgBox .Recordcount
           End With
    End If
End Sub