ник: rasiell
насколько я накопал для этого надо индексы присвоить, нашел вот такой кусок кода
Public Sub newIndex(dbTable As ADOX.Table)
' dbTable is table where we add new index
Dim dbIndex As ADOX.Index
On Error GoTo errCatch
Set dbIndex = New ADOX.Index
dbIndex.name = "tblPrimaryIndex"
dbIndex.Clustered = True
dbIndex.IndexNulls = adIndexNullsDisallow
dbIndex.PrimaryKey = True
dbIndex.Unique = True
dbIndex.Columns.Append "id_Column"
' id_Column is a name of column
dbTable.Keys.Append dbIndex
dbTable.Indexes.Append "column2Index", "newColumn2"
' newColumn2 is name of column in our table
Exit Sub
errCatch:
MsgBox Err.Description & Err.Number
End Sub
но он сволочь не хочет работать 