Public Function GetPrimaryKeyFields(db As Database, _
TableName As String) As String()
 
    Dim idx As DAO.Index
    Dim PField() As String
    Dim fld As DAO.Field
    Dim I As Integer
 
    For Each idx In db.TableDefs(TableName).Indexes
        If idx.Primary Then
            ReDim PField(idx.Fields.Count - 1)
            I = 0
            For Each fld In idx.Fields
                PField(I) = fld.Name
                I = I + 1
            Next fld
        End If
    Next idx
    GetPrimaryKeyFields = PField()
 
End Function