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!