Crystal Report - Sub Reporte

Por favor, ahber quien me ayuda a enviarle los datos a mi sub reporte
yo estoy haciendo el siguiente codigo

pero nome parace nada enmi sub reporte

Dim Report As New crpRequerimientoResumenxDia
Dim Report1 As New crpSubRepRequerimiento
Option Explicit

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
Report.Database.SetDataSource rsTemporal, 3, 1
Report1.Database.SetDataSource rsSubRepTemporal, 3, 1
Report.Subreport1.OpenSubreport
Set rsSubRepTemporal = Nothing
Report.txtEmpresa.SetText (strEmpresa)
Report.txtDia.SetText frmRequerimientoFichasRegistradasxDia.mskFecha.Text

Report.DiscardSavedData
CRViewer1.ViewReport
CRViewer1.Zoom (96)
Screen.MousePointer = vbDefault

End Sub

Gracias por todo

Prueba con la propiedad pero antes debes indicar el nombre del reporte padre.

SubreportToChange = "nombresubreporte.rpt"
o
SubreportToChange = "nombresubreporte"