'
    Public Function Access_Create(ByVal AccessDBFile As String) As Boolean
        'Projekt-Verweis hinzufügen-COM-Microsoft ADO Ext. 2.7 for DDL and 
        ' Security
        'Imports ADOX
        '
        Access_Create = False
        '        
        Dim DBCatalog As ADOX.Catalog = New ADOX.Catalog
        '
        Dim DBTable As New ADOX.Table
        '
        DBCatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
                         "Data Source=" & AccessDBFile & ";" & _
                         "Jet OLEDB:Engine Type=5")
        '
        DBTable.Name = "TabellenName"
        DBTable.Columns.Append("SpaltenName", DataTypeEnum.adVarWChar, 50)
        '
        DBCatalog.Tables.Append(DBTable)
        DBCatalog = Nothing
        '
        If Dir(AccessDBFile, FileAttribute.Normal) <> "" Then
            Access_Create = True
        End If
        '
    End Function