Dim cat As Object, tbl As Object
Set cat = CreateObject("ADOX.Catalog")
cat.ActiveConnection = con
Set tbl = cat.Tables("fat")
For Each Key In tbl.Keys
If Key.Name = "PrimaryKey" Then
For Each clm In Key.Columns
Print clm.Name
Next
Exit Sub
End If
Next