Private Sub Form_Load()
If IsFilePath(dbFile) Then
cmd_AddNew.Visible = False
cmd_Update.Visible = True
Else
  Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
  dbEncrypt + dbVersion30)
 
For M = 1 To 3
        TabDef.Name = TableName(M)
    For N = 1 To 20
        'Datenfeld
        Feld.Name = Feldname1(N)
        Feld.Type = dbText
        Feld.Size = Feldlänge1(N)
        Feld.AllowZeroLength = True
        TabDef.Fields.Append Feld
        Set Feld = Nothing
    Next N
    For N = 22 To 26
        'Datenfeld
        Feld.Name = Feldname1(N)
        Feld.Type = dbText
        Feld.Size = Feldlänge1(N)
        Feld.AllowZeroLength = True
        TabDef.Fields.Append Feld
        Set Feld = Nothing
    Next N
    For N = 28 To 85
        'Datenfeld
        Feld.Name = Feldname1(N)
        Feld.Type = dbText
        Feld.Size = Feldlänge1(N)
        Feld.AllowZeroLength = True
        TabDef.Fields.Append Feld
        Set Feld = Nothing
    Next N
        For N = 87 To 103
        'Datenfeld
        Feld.Name = Feldname1(N)
        Feld.Type = dbText
        Feld.Size = Feldlänge1(N)
        Feld.AllowZeroLength = True
        TabDef.Fields.Append Feld
        Set Feld = Nothing
    Next N
    Db.TableDefs.Append TabDef
    Set TabDef = Nothing
Next M
For M = 1 To 3
    TabDef.Name = poTableName(M)
    For N = 1 To 27
        'Datenfeld
        Feld.Name = Feldname2(N)
        Feld.Type = dbText
        Feld.Size = Feldlänge2(N)
        Feld.AllowZeroLength = True
        TabDef.Fields.Append Feld
        Set Feld = Nothing
    Next N
    Db.TableDefs.Append TabDef
    Set TabDef = Nothing
Next M
    TabDef.Name = TableName(4)
    For N = 1 To 57
        'Datenfeld
        Feld.Name = Feldname3(N)
        Feld.Type = dbText
        Feld.Size = Feldlänge3(N)
        Feld.AllowZeroLength = True
        TabDef.Fields.Append Feld
        Set Feld = Nothing
    Next N
    Db.TableDefs.Append TabDef
    Set TabDef = Nothing
 
    TabDef.Name = "AR"
    For Y = 1 To 60
        'Datenfeld
        Feld.Name = Feldname5(1)
        Feld.Type = dbText
        Feld.Size = Feldlänge5(1)
        Feld.AllowZeroLength = True
        TabDef.Fields.Append Feld
        Set Feld = Nothing
    Next Y
    Db.TableDefs.Append TabDef
    Set TabDef = Nothing
Db.Close
Set Db = Nothing
End If
End Sub