Visual Basic - Data report Jerarquico

en erroe en concreto es que al ejecutar la consulta... me aparece el error."la columna (cimerca.doc) no existe en el conjunto de filas apropiado"

sSQL = "SHAPE {" & _
"SELECT cimerca.doc, cimerca.fhcaptura, cimerca.de, cimerca.para, cimerca.costo, cimerca.cargoa, cimerca.nomina, cimerca.fprograma " & _
"FROM cimerca " & _
"GROUP BY cimerca.doc, cimerca.fhcaptura, cimerca.de, cimerca.para, cimerca.costo, cimerca.cargoa, cimerca.nomina, cimerca.fprograma " & _
"} AS docs " & _
"APPEND (" & _
"{" & _
"SELECT datosart.cantidad, datosart.clave, datosart.articulo, datosart.proveedor " & _
"FROM datosart " & _
"} AS arti " & _
"RELATE 'cimerca.doc' TO 'cimerca.doc'" & _
") AS arti"

MsgBox sSQL

'Print #1, sSQL

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Mode = adModeRead
cn.Open "Provider=MSDataShape.1;" & _
"Extended Properties=" & _
Chr(34) & "DSN=MS Access Database;DBQ=" & _
App.Path & "SYSDB.mdb;DefaultDir=" & _
App.Path & ";DriverId=281;FIL=MS Access;" & _
"MaxBufferSize=2048;PageTimeout=5;UID=admin; PASSWORD='s248r'" & _
Chr(34) & ";Persist Security Info=True;" & _
"Data Provider=MSDASQL.1"

Set TablaAux1 = New ADODB.Recordset
TablaAux1.Source = sSQL
TablaAux1.ActiveConnection = cn
TablaAux1.CursorType = adOpenStatic
TablaAux1.LockType = adLockReadOnly

TablaAux1.Open sSQL, cn, adOpenStatic, adLockReadOnly, adCmdText

si alguien me puede ayudar muchas gracias de antemano....

La intruccion de sql utilizada es "SHAPE {SELECT cimerca.doc, cimerca.fhcaptura, cimerca.de, cimerca.para, cimerca.costo, cimerca.cargoa, cimerca.nomina, cimerca.fprograma FROM cimerca INNER JOIN datosart ON cimerca.doc=datosart.doc GROUP BY cimerca.doc, cimerca.fhcaptura, cimerca.de, cimerca.para, cimerca.costo, cimerca.cargoa, cimerca.nomina, cimerca.fprograma } AS docs APPEND ({SELECT datosart.cantidad, datosart.clave, datosart.articulo, datosart.proveedor FROM datosart } AS arti RELATE 'cimerca.doc' TO 'cimerca.doc') AS arti"