Dim antw
Dim sConn As String
Dim oCat As ADOX.Catalog
Dim oTable As ADOX.Table
Dim oIndex As ADOX.Index
Dim strFld As String
Dim i As Integer
Dim j As Integer
 
'Variable Felddefinitionen
Dim spl_field() As String
Dim spl_field_all() As String
'Variable Felddefinitionen
 
 
Set oCat = New ADOX.Catalog
sConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & ReadIniValue(ini_path, "New_DB", "DB_Path") & ";"
 
oCat.Create sConn
Set oCat = Nothing
'Felder aus der INI lesen
strFld = ReadIniValue(ini_path, "New_DB", "Fields")
 
 
Set oTable = New ADOX.Table
With oTable
    ' Name der neuen Tabelle
    .Name = ReadIniValue(ini_path, "New_DB", "Table")
    spl_field_all = Split(strFld, spl_fields)
    For j = 0 To UBound(spl_field_all)
        spl_field = Split(spl_field_all(j), spl_types)
        .Columns.Append spl_field(0), Get_Type(CLng(spl_field(1)))
        If spl_field(2) > "" Then
            .Columns(spl_field(2)).Properties("Jet OLEDB:Allow Zero Length") _
              = CBool(spl_field(2))
        End If
        If spl_field(3) > "" Then
            .Columns(spl_field(2)).Properties("Nullable") = CBool(spl_field( _
             3))
        End If
        If spl_field(4) > "" Then
           .Columns(spl_field(2)).DefinedSize = CInt(spl_field(4))
        End If
        If spl_field(5) > "" Then
            If spl_field(5) = "1" Then
                .Columns(spl_field(2)).Properties("AutoIncrement") = True
            Else
                .Columns(spl_field(2)).Properties("AutoIncrement") = False
            End If
        End If
    Next j
End With
oCat.Tables.Append oTable
 
Set oTable = Nothing
Set oCat = Nothing