MS Access | ADO | Создать таблицу, указать ключ

'установка ключевого поля (ADO)

Sub CreatePrimaryKey_ADO()

Dim db As ADOX.Catalog, tbl As ADOX.Table, idx As ADOX.Index

Set db = New ADOX.Catalog

db.ActiveConnection = CurrentProject.Connection

Set tbl = New ADOX.Table

tbl.Name = "PrimaryKey"

tbl.Columns.Append "PK", adWChar

db.Tables.Append tbl

Set idx = New ADOX.Index

idx.Name = "PrimaryKey"

idx.Columns.Append "PK"

idx.PrimaryKey = True

tbl.Indexes.Append idx

End Sub