Public Sub TabellenAuflisten_DAO()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim oField As DAO.Field
    Dim i As Integer
 
    Set db = DBEngine.OpenDatabase("C:\Eigene Dateien\TestDB.mdb")
    For Each tdf In db.TableDefs
        If Left(tdf.Name, 4) <> "MSys" Then
            Debug.Print tdf.Name
            ' alle Spalten durchlaufen
            For i = 0 To tdf.Fields.Count - 1
                Debug.Print tdf.Fields(i).Name
            Next i
        End If
    Next tdf
    db.Close
    Set db = Nothing
End Sub