ADOX Inserire Campo Autoincrement

Sub CreateAutoIncrColumn()

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As New ADOX.Column

' Apre il catalogo

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"

With tbl
.Name = "MyContacts"
Set .ParentCatalog = cat
' Crea i campi e li aggiunge al nuovo oggetto Table.

.Columns.Append "ContactId", adInteger
' Genera la colonna ContactId e la rende AutoIncrement

.Columns("ContactId").Properties("AutoIncrement") = True
.Columns.Append "CustomerID", adVarWChar
.Columns.Append "FirstName", adVarWChar
.Columns.Append "LastName", adVarWChar
.Columns.Append "Phone", adVarWChar, 20
.Columns.Append "Notes", adLongVarWChar
End With

cat.Tables.Append tbl

Set cat = Nothing

End Sub