Private Sub mnuDB_Click()
    Dim Db As Database
    Dim dbFile As String
    Dim TabDef As New TableDef
    Dim Feld As New Field
 
    dbFile = App.Path + "\db.mdb"
    Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, dbEncrypt + _
      dbVersion30)
 
    TabDef.Name = "Warenbuch"
 
    ' Datenfeld #1
    Feld.Name = "Bestellnummer"
    Feld.Type = dbText
    Feld.Attributes = dbAutoIncrField
    TabDef.Fields.Append (Feld)
    Set Feld = Nothing
 
    ' Datenfeld #2
    Feld.Name = "Artikelbezeichnung"
    FeldType = dbText
    Feld.Attributes = dbAutoIncrField
    TabDef.Fields.Append (Feld)
    Set Feld = Nothing
 
    ' Datenfeld #3
    Feld.Name = "Stückzahl"
    FeldType = dbText
    Feld.Attributes = dbAutoIncrField
    Set Feld = Nothing
 
    ' Datenfeld #4
    Feld.Name = "Eka"
    FeldType = dbText
    Feld.Attributes = dbAutoIncrField
    TabDef.Fields.Append (Feld)
End Sub