Pasar Recorsdet a SubReport de Crystal

[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!