Public Sub CreateDB(ByVal FilePath As String)
 
        Dim ADOXcatlog As New Catalog
        Dim ConString As String = _
           "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & FilePath & ";"
        If System.IO.File.Exists(FilePath) Then
            IO.File.Delete(FilePath)
        End If
        Try
            ADOXcatlog.Create(ConString)
            Dim myTable As ADOX.Table = New ADOX.Table
            myTable.Name = "Tabelle"
 
            Dim myColumn As ADOX.Column = New ADOX.Column
 
            With myColumn
                .Name = "LfdNr"
                .Type = adInteger
                .ParentCatalog = ADOXcatlog
                .Properties("Autoincrement").Value = True
                .Properties("Seed").Value = 1
            End With
            myTable.Columns.Append(myColumn)
 
            myTable.Keys.Append("PrimaryKey", adKeyPrimary, "LfdNr")
 
            For i As Integer = 0 To 5
                myTable.Columns.Append("Feld" & i.ToString, adVarWChar, 40)
            Next
 
            ADOXcatlog.Tables.Append(myTable)
 
            myTable = Nothing
            ADOXcatlog = Nothing
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.ToString)
        End Try
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist