Я получаю «Ошибка 3251» при получении ключей таблицы в Access 2013 (ADO VBA) с этим фрагментом кода

Question

Я пытаюсь перечислить связи локальной базы данных с ADO с кодом.

Код работает с SQL подключением к серверу, но не с подключением CurrentProject. Код ниже.

Есть идеи?

Sub SeeRelationshipsADO()

    Dim conn As ADODB.Connection

    Dim catADOX As New ADOX.Catalog 'El catálogo ADOX
    Dim tblADOX As ADOX.Table       'Tabla ADOX
    Dim KeyADOX As ADOX.key         'Clave ADOX

    Dim strRIName As String

    Set conn = CurrentProject.Connection

        'Seteo el catálogo
        Set catADOX.ActiveConnection = conn

        Set tblADOX = catADOX.Tables("ST_JLE_Materiales")

            For Each KeyADOX In tblADOX.Keys

            'Here returns error 3251

            Next KeyADOX

    Set KeyADOX = Nothing
    Set tblADOX = Nothing
    Set catADOX = Nothing

End Sub

Answer 1

Я понял!

Благодаря JohnyL

Невозможно решить проблему со связанными таблицами и локальными таблицами одновременно