Visual Basic - recorset jerarquico

Saludos...

Tengo este codigo en vb6, el cual me genera el error " -2147217900 [MySQL][ODBC 5.1 Driver][mysqld-5.0.51b-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'SHAPE {SELECT * FROM customers} APPEND ({SELECT * FROM orders} AS rsOrders RELAT' at line 1 "

alguna idea de cual es el error?
o alguna idea de como hacer un recorset jerarquico con vb6 y mysql..?

de antemano gracias..

Set cn = New ADODB.Connection
cn.Open "DRIVER={MySQL ODBC 5.1 Driver};DATABASE=msydel;SERVER=100.100.100.50;UID=root;Option=16384;PASSWORD='" & Pass & "';PORT=3306"

Set TablaAux1 = New ADODB.Recordset
TablaAux1.CursorType = adOpenStatic
TablaAux1.CursorLocation = adUseClient
TablaAux1.LockType = adLockOptimistic
TablaAux1.ActiveConnection = cn

' Docs = "SELECT DatosDoc.IDCap, DatosDoc.Fprograma, DatosDoc.Turno, DatosDoc.Doc, DatosDoc.Ref, DatosDoc.Colonia " & _
' "FROM DatosDoc"
'
' Arts = "SELECT DatosArt.DocArt, DatosArt.Cantidad, DatosArt.Codigo, DatosArt.Ubic " & _
' "FROM DatosArt"
'
' sSQL = "SHAPE {" & Docs & "} AS Docus APPEND" & _
' "({" & Arts & "} AS Artis" & _
' " RELATE 'DatosDoc.Doc' TO 'DatosArt.DocArt') AS DetalleArtis"

TablaAux1.Source = sSQL
TablaAux1.Open

Set RC01ParaAcopios.DataSource = TablaAux1
RC01ParaAcopios.Orientation = rptOrientLandscape
RC01ParaAcopios.Show vbModal

dice que esta en la linea 1
posiblemente sea esto
{MySQL ODBC 5.1 Driver}

intentale asi
{MySQL ODBC 5.1}

o asi
"MySQL ODBC 5.1"

Gracias por la recomendacion..

Ya lo he probado.. y sigue igual.. creo que el problema es algo referente al uso del comando "shape" pero no encuento algun ejemplo concreto de como usar el comando en con el ODBC de Mysql en VB6

Alguna otra idea.?

La solucion ... al parecer el odbc de Mysql no soporta directamente el uso del comando Shape por lo cual no funciona..

al cambiar la coneccion :

cn.Open "DRIVER={MySQL ODBC 5.1 Driver};DATABASE=msydel;SERVER=100.100.100.50;UID=root;Option=16384;PASSWORD='" & Pass & "';PORT=3306"

por esta otra el problema queda resuelto..

cn.Open "Provider=MSDataShape.1; Extended Properties='DRIVER={MySQL ODBC 5.1 Driver}; DESC=; DATABASE=Tubase; SERVER=192.168.60.1; UID=root; PASSWORD=tupass; PORT=3306; OPTION=3; ;';Persist Security Info=False; Data Provider=MSDASQL.1"

Espero que le sirva a alguien..