Function Datenbankerstellung(PostExport As String)
On Error GoTo Err_Handler
    Dim datenbank As DAO.DATABASE
    Dim tdf As DAO.TableDef
    Dim fld As DAO.field
    Dim field As DAO.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
'Fehlerbehandlung
Err_Handler_Exit:
    datenbank.Close
    Exit Function
Err_Handler:
    If Err = 3010 Then
        MsgBox "Tabelle bereits vorhanden.", vbInformation + vbOKOnly, "Fehler!"
    Else
        Dim strErrString As String
        strErrString = "Error Information..." & vbCrLf
        strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
        strErrString = strErrString & "Description: " & Err.Description & vbCrLf
        MsgBox strErrString, vbCritical + vbOKOnly, "Error in Function:" & _
          "Datenbankerstellung "
    End If
    GoTo Err_Handler_Exit
End Function

Gru? TommyK