'******************************************************************************
' **'
'*** Allgemeines ***'
'******************************************************************************
' **'
Option Explicit
'Variablen für die Datenbank
Dim Db As Database
Dim dbFile As String
Dim TabDef As New TableDef
Dim tabfeld As New Field
Dim Tabelle As Recordset
 
'******************************************************************************
' **'
'*** Datenbank-Datei erstellen ***'
'******************************************************************************
' **'
Public Function DataCreate()
    'Wenn Datenbank schon existiert, dann springe darüber weg !!
    On Error Resume Next
    dbFile = App.Path + "\Data.mdb"
    Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
      dbEncrypt + dbVersion30)
 
 
    '**************************************************************************
    ' ******'
    '*** Tabelle Login ***'
    '**************************************************************************
    ' ******'
    'Tabelle "Login" erstellen
    TabDef.Name = "Login"
 
 
    ' Datenfeld #1
    Feld.Name = "AdressNr"
    Feld.Type = dbLong
    Feld.Attributes = dbAutoIncrField
    Tabelle.Fields.Append Feld
    Set Feld = Nothing
 
 
 
    Db.TableDefs.Append Tabelle
    Db.Close
 
    Set Tabelle = Nothing
    Set Db = Nothing
End Function

Gru? MTAS