'Imports IO
'Imports ADOX
    Private Function MakeTable() As Boolean
        Dim oCat As New ADOX.Catalog
        Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          Path.Combine(Application.StartupPath, "test.accdb") & ";"
        Dim aConn As New ADODB.Connection
        oCat = New ADOX.Catalog
        Try
            oCat.Create(sConn)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        aConn.Open(sConn)
        oCat.ActiveConnection = aConn
        Dim aTable As New ADOX.Table
        With aTable
            .Name = "Test"
            .ParentCatalog = oCat
            .Columns.Append("ID", DataTypeEnum.adInteger)
[u]
            .Columns("ID").Properties("Autoincrement") = True
            .Columns("ID").Properties("Description") = "Test"

            .Columns.Append("Feld1", DataTypeEnum.adWChar, 60)
        End With
        oCat.Tables.Append(aTable)
        aConn.Close()
        aTable = Nothing
        Return False
    End Function