Salut,
si ta table contient un champ clé primaire, mon code te donnera normalement le nom du champ.
A toi d'adapter pour faire ce que tu veux :
'Aller dans projet -> référence puis cocher ADO Ext 2.8 For DLL and Security
Dim bdd As New ADOX.Catalog
Dim table As ADOX.table
Dim ind As ADOX.Index
Set bdd.ActiveConnection = ta_connection_ADO
For Each table In bdd.Tables
For Each ind In bdd.Tables(table.Name).Indexes
If (ind.PrimaryKey) Then
MsgBox ind.Columns(0).Name
End If
Next
Next
End Sub