Public Sub X()

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=D:\My Databases\dbTest.mdb;" _
      & "Persist Security Info=False"
    
    Set rst = cnn.OpenSchema(adSchemaIndexes, _
         Array(Empty, Empty, Empty, Empty, "tblCustomers"))
    
    Do Until rst.EOF
        Debug.Print rst!INDEX_NAME
        rst.MoveNext
    Loop
    
    rst.Close
    Set rst = Nothing
    
    cnn.Close
    Set cnn = Nothing
End Sub