Pasar Recorsdet a SubReport de Crystal

[AgustinT]

Buenas, solicito su ayuda.
Estoy programando en VB6 con CR12.
El escenario es el siguiente:
Desde una libreria leo un archivo XML el cual llena un Recordset. Tengo que imprimir un reporte hecho en Crystal que tiene un subreport. Hasta ahora puedo pasarle los datos al reporte principal de la siguiente manera:

Dim ds As ADODB.Recordset
Dim obj_DOMDocument As DOMDocument
Dim bOk As Boolean

Set obj_DOMDocument = New DOMDocument
Set ds = New ADODB.Recordset

bOk = obj_DOMDocument.Load(strXMLPath + "\recibo_" + CStr(strComprobante) + ".xml")
ds.Open obj_DOMDocument
crReport.Database.SetDataSource ds

Mi duda es como hacer para pasarle otro recorset al SubReport

Por ejemplo, en versiones anteriores se podia hacer lo siguiente:
CrystalReport.SubreportToChange = "SubReport1"

pero en esta version no se puede. ¿Alguna idea?.

Desde ya muchas gracias.
Saludos!

[AgustinT]

Bueno, finalmente he encontrado la solucion.
El tema es que hay que crear un nuevo objeto por cada SubReport que tengamos, y a este tratarlo como un Reporte diferente.
El codigo es asi:

' Creo el objeto para el SubReport
Dim crSubReport As New CRAXDDRT.Report
' Cargo los SubReport
Set crSubReport = crReport1.OpenSubreport("Detalles") <-- Nombre del SubReport
`Le paso el dataset al SubReport
crSubReport.Database.SetDataSource ds_detalle
crSubReport_Detalle.ReadRecords

y luego se imprime el reporte principal.

Espero que les sirva.
Saludos!