Private Sub Form_Click()
Debug.Print Get_Primary("C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb", "suppliers")
End Sub
Public Function Get_Primary(ByVal databasename As String, ByVal tablename As String) As String
Dim td As DAO.TableDef
Dim db As DAO.database
Dim nx As DAO.Index
Set db = OpenDatabase(databasename)
Set td = db.TableDefs(tablename)
For Each nx In td.Indexes
If nx.Primary = True Then
Get_Primary = nx.Fields(0).Name
Exit For
End If
Next
End Function