Visual Basic - AYUDA!! No consigo averiguar RELACIONES

Hola, quiero averiguar las relaciones de una BD en Access con ODBC,
usando el siguiente código me da el error: 3251 que dice: "El objeto o
proveedor no puede ejecutar la operación requerida". No sé porque falla.
Uso el visual basic 6, con MS Data Components 2.6 y ServicePack 5.
Hay va el cógigo que uso:

Private Sub ObtenerRelaciones()

Dim conex As ADODB.Connection
Dim cat As ADOX.Catalog
Dim clave As ADOX.Key
Dim cadena As String

Set conex = New ADODB.Connection
conex.Open ("DSN=miDSN")

Set cat = New ADOX.Catalog
cat.ActiveConnection = conex

ListRelacion.Clear
For Each clave In cat.Tables(ComboTabla.Text).Keys
cadena = clave.Name
ListRelacion.AddItem cadena
Next clave

conex.Close
Set conex = Nothing
Set cat = Nothing
Set clave = Nothing

End Sub

Agradecería cualquier ayuda que me puedan facilitar.
Perdonen la extensión del correo.
Gracias de antemano.
Un saludo,
>CybertowerS<