Visual Basic - Obtener campos de un índice

A ver si alguien me puede ayudar, porfa.... Necesito crear una BD en Access igualita como la tengo en SQL, el problema es que cuando quiero obtener los campos que forman un índice me sale el error 3251: Error definido por la aplicación o el objeto. El código es más o menos como sigue:

Dim tbl As ADOX.Table
Dim idx As ADOX.Index
Dim col As ADOX.Column
Dim cat As New ADOX.Catalog

Set cat.ActiveConnection = cnConecta
For Each tbl In cat.Tables
If tbl.Type = "TABLE" Then

For Each col In tbl.Columns

Next

'En esta línea es donde me da el error
For Each idx In tbl.Indexes
If idx.Name <> "" Then
For Each col In idx.Columns

Next
End If
Next

End If
End If
Next

Gracias de antemano

Tu colocas " For Each tbl In cat.Tables ", y no será que al poner In cat.Tables VB encuentrá allí el motivo del error? Digo, ya que cuando yo uso el For Each lo hago así: For Each varControl in Form. La varControl es una variable pública As Control ubicada en un módulo bas, y Form es el parámetro de Screen.Active Form. Le pegaste una mirada al HMTL? Te puede ayudar. Suerte amigo..

Revisa la colección de Keys en lugar de Indexes porque difieren entre SQL Server y Access.