Option Explicit
 
Public DataCreate As Boolean
Dim Db As Database
Dim dbFile As String
 
'------------------------------------------------------------------------------
' --'
'                     >> Datenbank-Datei erstellen <<                            '
'------------------------------------------------------------------------------
' --'
Private Sub Class_Initialize()
    If DataCreate = True Then
        On Error Resume Next
        dbFile = App.Path + "\ADRESS.MDB"
        Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
          dbEncrypt)
    End If
End Sub

DataCreate = True

Thanks 4 Help Wer Rechtschreibfehler findet darf Sie behalten!!