[AccessD] Identifying Primary Key's

I've been trying to do something similar with the ADOX PrimaryKey property, 
but don't have it quite right yet -- I'll take at look, maybe it'll inspire 
me. Thanks!

Susan H.


>                For cntKey = 0 To curTbl.Indexes.count - 1
>                    Set curIdx = curTbl.Indexes(cntKey)
>                    '** Loop though all the fields in the current index
>                    For cntIdx = 0 To curIdx.Fields.count - 1
>                        Set curIdxFld = curIdx.Fields(cntIdx)
>                        '* is the current field part of the primary key?