Create AutoNumber column in Access Database

[Haug]

I need to create a new column in a table in a MS Access database. I'm usnig the ADOX object to open the file and have no problems creating a new integer-type column but I can't figure out how to make it AutoNumber.
/Haug

 

[MangroBongacello]

column.Properties("AutoIncrement&quot.Value = True

Mangro

 

[CCLINT]

Set Col = New ADOX.Column
With Col
Set .ParentCatalog = cat
.Name = "AutoNr"
.Type = adInteger
.Properties("AutoIncrement&quot = True
tbl.Columns.Append Col
End With

 

[Haug]

Thanks a lot for helping out this fast.

I needed to set the .parentcatalog to be allowed to set the "AutoIncrement" = True

/Haug