Function Datenbankerstellung(PostExport As String)
    Dim datenbank As Database
    Dim tdf As TableDef
    Dim fld As field
    Dim field As field
 
    Dim pfad As String
    Dim fso As FileSystemObject
 
    pfad = App.Path & "\" & "Data" & "\" & "PostExport.mdb"
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(pfad) = True Then
        fso.DeleteFile (pfad)
    End If
 
    Set datenbank = Workspaces(0).CreateDatabase(pfad, dbLangGeneral, _
      dbVersion30)
    Set tdf = datenbank.CreateTableDef("Adresse")
 
    Set fld = tdf.CreateField("Ref-Nr", dbText, 200)
    tdf.fields.Append fld
    Set fld = tdf.CreateField("Name1", dbText)
    tdf.fields.Append fld
    Set fld = tdf.CreateField("Name2", dbText)
    tdf.fields.Append fld
    Set fld = tdf.CreateField("Name3", dbText)
    tdf.fields.Append fld
    Set fld = tdf.CreateField("Strasse", dbText)
    tdf.fields.Append fld
    Set fld = tdf.CreateField("PLZ", dbText)
    tdf.fields.Append fld
    Set fld = tdf.CreateField("Ort", dbText)
    tdf.fields.Append fld
 
    datenbank.TableDefs.Append tdf
 
    datenbank.Close
End Function