Public Sub X()

    Dim cnn As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim idx As ADOX.Index
    
    Set cnn = New ADODB.Connection
    Set cat = New ADOX.Catalog
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=D:\My Databases\dbTest.mdb;" _
      & "Persist Security Info=False"
    
    cat.ActiveConnection = cnn
    
    Set tbl = cat.Tables("tblCustomers")
    
    With tbl
        If .Indexes.Count >  0  Then
            For Each idx In .Indexes
                With idx
                    Debug.Print "Index = " & .Name
                    Debug.Print "Primary key = " & .PrimaryKey
                    Debug.Print "Unique = " & .Unique
                End With
            Next idx
        Else
            Debug.Print "Индексов нет."
        End If
    End With
    
    cnn.Close
    Set cnn = Nothing
End Sub