Public Sub MeineTabelle_GetAnzahlRecords()
 
    'Deklarationen
    Dim lngAnzahlRecords As Long
    Dim cnMeineConnection As ADODB.Connection
    Dim rsMeinRecordset As ADODB.Recordset
 
    'Initialisierungen
    Set cnMeineConnection = New ADODB.Connection
    Set rsMeinRecordset = New ADODB.Recordset
 
    'Verbindung zur Datenbank herstellen
    With cnMeineConnection
        If .State = adStateOpen Then .Close
        .Provider = "Microsoft.Jet.OLEDB.4.0" 'Access 2000/XP
        .Properties("Data Source") = "MeineDatenbank.mdb"
        .CursorLocation = adUseClient
        .Open
    End With
 
    'Recordset öffnen
    Set rsMeinRecordset.ActiveConnection = cnMeineVerbindung
    With rsMeinRecordset
        If .State = adStateOpen Then .Close
        .ActiveConnection = cnMeineVerbindung
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM tabMeineDatenbanktabelle"
        .Open
    End With
 
    'Anzahl Datensätze ermitteln
    With rsMeinRecordset
        If .AbsolutePosition <> -1 Then    'Ist Tabelle nicht leer ?
            'um sicher zu sein, dass alle Datensätze gezählt werden zum ersten 
            ' und 
            'zum letzten Satz gehen, danach Anzahl Datensätze auslesen
            .MoveFirst
            .MoveLast
            lngAnzahlRecords = .RecordCount
        End If
    End With
 
    'Aufräumen
    rsMeinRecordset.Close
    Set rsMeinRecordset = Nothing
    cnMeineVerbindung.Close
    Set cnMeineVerbindung = Nothing
 
End Sub

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it. (Brian W. Kernighan)