Dim Db As Database
    Dim Tabelle As Recordset
    Dim i As Long
 
    'Datenbank öffnen
    Set Db = Workspaces(0).OpenDatabase(strDBFile, False, False)
    Set Tabelle = Db.OpenRecordset(strTableName)
 
    For i = 0 To Tabelle.RecordCount
        'Was muss ich hier machen??? (lstListBox.AddItem ???)
    Next i
 
    'Datenbank schließen
    Tabelle.Close
    Db.Close
    Set Tabelle = Nothing
    Set Db = Nothing