Private Sub Form_Load()
  dbFile = App.Path + "\EASY.MDB"
  TableName(1) = "EPAB"
  TableName(2) = "EPAG"
  TableName(3) = "EPLI"
 
  If IsFilePath(dbFile) Then
      Exit Sub
  End If
  Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
    dbEncrypt + dbVersion30)
 
  For M = 1 To 3
      TabDef.Name = TableName(M)
 
      'Datenfeld #1
      Feld.Name = "Nr"
      Feld.Type = dbText
      Feld.Size = 9
      Feld.AllowZeroLength = False
      TabDef.Fields.Append Feld
      Set Feld = Nothing
 
      'Datenfeld #2
      Feld.Name = "Datum"
      Feld.Type = dbText
      Feld.Size = 10
      Feld.AllowZeroLength = False
      TabDef.Fields.Append Feld
      Set Feld = Nothing
 
      'Datenfeld #3
      Feld.Name = "Kundenname"
      Feld.Type = dbText
      Feld.Size = 30
      Feld.AllowZeroLength = False
      TabDef.Fields.Append Feld
      Set Feld = Nothing
 
      'Datenfeld #4
      Feld.Name = "Kundennr"
      Feld.Type = dbText
      Feld.Size = 30
      Feld.AllowZeroLength = False
      TabDef.Fields.Append Feld
      Set Feld = Nothing
 
      Db.TableDefs.Append TabDef
       ' Den Refresh kannst du sicherlich auch weglassen
      Db.TableDefs.Refresh
 
      Set TabDef = Nothing
 
  Next M
 
   ' Datenbank erst schließen, wenn alle Tabellen angelegt sind und keine
   '  weiteren Aktionen mehr vorgenommen werden
  Db.Close
  Set Db = Nothing
 
End Sub