Visual Basic - MSysRelationships en Access

Hola foro,

MSysRelationships es una tabla en donde access guarda
la informacion de las relaciones formadas en un base
de datos, pues resulta que si la puedo ejecutar en
access, pero si lo intento en VB me manda a la tierra
de nunca jamas, por lo cual si alguien sabe de algun
metodo para obtener esta información desde VB, por
favor le solicito un ejemplito.

Nota, lo que necesito es hacer un Select de esta
tabla.

Marco Contreras

Como es una tabla del sistema supongo que por ese motivo no la deja abrir, no se si existe alguna forma del desabilitarla para poder consultarla, pero si lo que ocupas son la relaciones de la tablas de cierta base de datos, aca te mando un pequño ejemplo en DAO, para ver si es de tu ayuda, suerte.

Private Sub Command1_Click()
Dim DB As Database
Dim R As Relation

On Error GoTo Errores

Set DB = OpenDatabase("C:\hoteles.mdb")

List1.Clear
For Each R In DB.Relations
List1.AddItem R.ForeignTable & "." & R.Fields(0).ForeignName & " " & R.Table & "." & R.Fields(0).Name
Next R
DB.Close
Exit Sub
Errores:
MsgBox "Ocurrio un Error"
End Sub