Dim Db As Database
Dim TabDef As New TableDef
Dim Feld As New Field
 
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
    Db.Close
 
    Set TabDef = Nothing
    Set Db = Nothing
Next M
End Sub