Mensaje enviado por "Diego Buendía" <diegobb@teleline.es>

Hola Raúl:

Yo lo conseguí usando el código que sigue:

Private db As ADODB.Connection

Sub Conectar(sMDB As String)
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data
Source=" & sMDB & ";"
End Sub

Tal vez te interese este artículo de la KB de MSDN (How to create Hierarchical Recordsets programmatically):

http://support.microsoft.com/support/kb/articles/q196/0/29.asp


Un saludo,

Diego Buendía
Barcelona, Spain
diegobb@teleline.es