我正在尝试使用代码列出与ADO的本地数据库关系。

代码适用于SQL Server连接，但不适用于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