'Hier wird die Datenbank erstellt
    Dim Db As Database
    Dim dbFile As String
 
    dbFile = App.Path + "\DATA.MDB"           'Name der Datenbank
    Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
        dbEncrypt + dbVersion30)
 
    'Hier wird die Tabelle für die MP3 Daten erstellt
    Dim TabDef As New TableDef
    Dim Feld As New Field
 
    TabDef.Name = "MP3"
 
    'Datenfeld #1 Datum
    Feld.Name = "Datum"
    Feld.Type = dbLong
    Feld.Attributes = dbAutoIncrField
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    'Datenfeld #2 Interpret
    Feld.Name = "Interpret"
    Feld.Type = dbText
    Feld.Size = 40
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    'Datenfeld #2 Titel
    Feld.Name = "Titel"
    Feld.Type = dbText
    Feld.Size = 40
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 
    Db.TableDefs.Append TabDef
    Db.Close
 
    Set TabDef = Nothing
    Set Db = Nothing
 
End Sub