如何判断一个表有否“主键”,若有如何判断哪个字段是“主键”？

我在编程是把一个表的数据读取到MSFgrid中进行编辑，
需要将主键的字段锁定，既把主键对应的数据列设为固定列。
在将数据读到表中时，我需要判断哪个字段为主键。
请用简易代码说明，多谢您的帮助！
---------------------------------------------------------------

《VBA》如何得到一个表的所有键？以及键的类型？
Public Function displaykey()

Dim kyForeign As New ADOX.Key
Dim cat As New ADOX.Catalog

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office" & _
"Office\Samples\Northwind.mdb;"
'cat.ActiveConnection = CurrentProject.Connection

For Each kyForeign In cat.Tables("ColorSet").Keys
Debug.Print kyForeign.Name & kyForeign.Type
Next
End Function

常量 值 说明
adKeyPrimary 1 默认值。此键是主键。
adKeyForeign 2 此键是外键。
adKeyUnique 3 此键是唯一键。

一看就知道是老手，提问简单明了，我想上述代码你也应该明白了吧？