ACCESS中建了主键机器自动产生的约束名，请问有什么方法能得到这个约束名
ACCESS中建了主键机器自动产生的约束名，请问有什么方法能得到这个约束名，请高手指点
[解决办法]
'获取指定表名的主键名
Public Sub testKey()
On Error GoTo err_this
Dim strTblName As String
Dim adoxcat As New ADOX.Catalog
Dim adoxtbl As New ADOX.Table
Dim adoxkey As New ADOX.Key
Dim intKeys As Integer
Dim intKey As Integer
strTblName = "表名 "
adoxcat.ActiveConnection = CurrentProject.Connection
Set adoxtbl = adoxcat.Tables(strTblName)
Debug.Print adoxcat.Tables(strTblName).Name
' Set adoxkey = adoxtbl.Keys
' For Each adoxkey In adoxtbl.Keys
intKeys = adoxtbl.Keys.Count - 1
For intKey = 0 To intKeys
Debug.Print adoxtbl.Keys.Item(intKey).Name
Next intKey
' Debug.Print adoxkey.Columns
Debug.Print adoxkey.Name, adoxkey.Type
' Next
Set adoxkey = Nothing
Set adoxtbl = Nothing
Set adoxcat = Nothing
exit_sub:
Exit Sub
err_this:
MsgBox Err.Description, vbOKOnly + vbCritical, Err.Number
Resume exit_sub
End Sub
