ACCESS判断并设置主键，具体怎操作？谢谢

如果是代码中,要引用ADOX

判断主键代码如下:
sub SetupKey()
Dim ky As New ADOX.KEY
Dim cat As New ADOX.Catalog
cat.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source =c:\数据库.mdb;"
'如果是当前数据库则用下面这句
'cat.ActiveConnection=CurrentProject.Connection

For Each ky In cat.Tables("表名").Keys
Debug.Print ky.Name & "——" & ky.Type
Next

'返回值
'adkeyPrimary 1 是默认值,此键是主键
'adkeyForeign 2 此键是外键
'adKeyUnique 3 此键盘是唯一键

'二、设置主键
Set ky = New Key
ky.Name = "CustOrder"
ky.Type = adKeyPrimary
ky.RelatedTable = "表名1"
ky.Columns.Append "字段1"
ky.Columns("字段1").RelatedColumn = "字段1"
ky.UpdateRule = adRICascade
cat.Tables("表名1").Keys.Append ky

End sub

设计模式下，右击字段，设为主键即可。
一般要求主键是无重复值的。因此可以设置为“自动编号”或者其它无重复值的东西。
如果是导入数据的话，可以再向导里设置为由Access自动选择主键。

问题不够明确