Option Explicit
 
Sub DatenbankErstellen()
    Dim Db As Database
    Dim dbFile As String
 
    dbFile = App.Path + "\ADRESS.MDB"
    Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
        dbEncrypt + dbVersion30)
End Sub
 
Sub ErstellenTabellen()
    Dim TabDef As New TableDef
    Dim Feld As New Field
    TabDef.Name = "Adressen"
    Feld.Name = "AdressNr"                                    'Datenfeld #1
    Feld.Type = dbLong
    Feld.Attributes = dbAutoIncrField
    TabDef.Fields.Append Feld
    Set Feld = Nothing
    Feld.Name = "Anrede"                                        'Datenfeld #2
    Feld.Type = dbText
    Feld.Size = 20
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
    Feld.Name = "Name"                                         'Datenfeld #3
    Feld.Type = dbText
    Feld.Size = 50
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
    Feld.Name = "Strasse"                                     'Datenfeld #4
    Feld.Type = dbText
    Feld.Size = 35
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
    Feld.Name = "PLZ"                                             'Datenfeld #5
    Feld.Type = dbText
    Feld.Size = 8
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
    Feld.Name = "Ort"                                             'Datenfeld #6
    Feld.Type = dbText
    Feld.Size = 40
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
    Feld.Name = "Telefon"                                     'Datenfeld #7
    Feld.Type = dbText
    Feld.Size = 25
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
    Feld.Name = "EMail"                                         'Datenfeld #8
    Feld.Type = dbText
    Feld.Size = 50
    Feld.AllowZeroLength = True
    TabDef.Fields.Append Feld
    Set Feld = Nothing
 'fehler   Db.TableDefs.Append TabDef
 'fehler   Db.Close
    Set TabDef = Nothing
 'fehler   Set Db = Nothing
End Sub
 
Sub TabelleAnDatei()
'fehler    Db.TableDefs.Append TabDef
End Sub
 
Sub DatenbankOeffnen()
    Dim Db As Database
    Dim Tabelle As Recordset
    Dim dbFile As String
    dbFile = App.Path + "\ADRESS.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Adressen")
End Sub
 
Sub DatenbankSchliessen()
'fehler    Tabelle.Close
'fehler    Db.Close
'fehler    Set Tabelle = Nothing
'fehler    Set Db = Nothing
End Sub