Imports System
Imports System.IO
Imports ADOX
Imports ADOX.DataTypeEnum
Imports ADOX.KeyTypeEnum
 
Module ModDB
 
    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
 
        Try
 
            If Not System.IO.File.Exists(FilePath) Then
                ADOXcatlog.Create(ConString)
            End If
 
 
            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
                .Properties("Autoincrement") = True      'automatische 
                ' Wertvergabe aktivieren
                .Properties("AutoIncrementSeed") = 1      'Startwert
                .Properties("Autoincrementstep") = 1     'Schrittweite
            End With
 
            'Create and Append a new field to the tables Columns Collection
            myTable.Columns.Append(myColumn)
 
            'Create and Append a new key. Note that we are merely passing
            'the "PimaryKey_Field" column as the source of the primary key. This
            'new Key will be Appended to the Keys Collection of "Test_Table"
            myTable.Keys.Append("PrimaryKey", adKeyPrimary, "LfdNr")
 
            'This creates more columns and adds them to columns
            'collection one by one .
            For i As Integer = 0 To 5
                table1.Columns.Append("Feld" & i.ToString, adVarWChar, 40)
            Next
 
            'append tables to database
            ADOXcatlog.Tables.Append(myTable)
 
            'Self-explanatory : we dispose unneeded objects
            'after we're done.
            table1 = Nothing
            ADOXcatlog = Nothing
 
 
            MessageBox.Show("Database successfully created")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.ToString)
        End Try
 
    End Sub

                 .Properties("Autoincrement") = True      'automatische 
                 ' Wertvergabe aktivieren
                .Properties("AutoIncrementSeed") = 1      'Startwert
                .Properties("Autoincrementstep") = 1     'Schrittweite