如何读取表的主键字段

增加引用：microsoft ADO Ext.2.8 for DDL and Security

Function Keyname(tbname As String) As String
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As ADOX.Table
Dim t As ActionEnum
Dim i As Long, j As Long
Set cnn = CurrentProject.Connection
Set cat.ActiveConnection = cnn
Set tbl = cat.Tables(tbname)

For i = 0 To tbl.Keys.Count - 1
    If tbl.Keys(i).Type = adKeyPrimary Then
        For j = 0 To tbl.Keys(i).Columns.Count - 1
            Keyname = Keyname & tbl.Keys(i).Columns(j).Name & ";"
        Next
    End If
Next
End Function