Crystal Report - Ayuda con subreportes

Hola amigos de la Web del programador, queria saludorlos por su valioso aporte en la web y pedirles de favor me ayuden con un problema que tengo.

Estoy utilizando crystal report 8.5, he generado ya reportes sin usar la opcion de subreports, pero ahora necesito usarlos para crear nuevos informes, para ello he creado 2 subreport (rptCreditosOtorgados y rptCreditosCancelados) ademas del reporte principal que es una Liquidacion diaria de ventas, pero no se cuales son los componentes o referencias que debo utilizar para crear el programa en visual basic, deben tener el cuenta que estoy trabajando con el objeto VIEWER, con SQL Server 2000 y estoy utilizando procedimientos almacenados para generar mis reportes.

El unico programa que logre conseguir y del cual aprendi fue el que aqui les adjunto,
espero pueden a traves de este base que les envio agregar las lineas que puedan estarme faltando y enviarmelo.

Les agradezco por anticipado su colaboración

Private Sub cmdImprimir_Click()
Dim rsImprimir As New ADODB.RecordSet
Dim frmReportePW As New frmReportePreview
Dim Aplicacion As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim s_Ruta As String
Dim s_Select As String
On Error GoTo ErrorImpresion
s_Ruta = p_UbicaReportes & "rptCuentasxCobrar_Cobranzas.rpt"
Set Report = Aplicacion.OpenReport(s_Ruta)
Set CrParametersDefs = Report.ParameterFields
For Each CrParametersDef In CrParametersDefs
Select Case CrParametersDef.ParameterFieldName
Case "p_Fecha_Desde"
CrParametersDef.AddCurrentValue ("" & dtpCreditosDesde.Value & "")
Case "p_Fecha_Hasta"
CrParametersDef.AddCurrentValue ("" & dtpCreditosHasta.Value & "")
End Select
Next
s_Select = "EXEC DATA_4.dbo.stp_CuentasxCobrar_Cobranzas '" & p_IdCompania & "', '" & dtcTienda.BoundText & "','" & txtIdCliente.Text & "','" & dtpCreditosDesde.Value & "','" & dtpCreditosHasta.Value & "'"
Set rsImprimir = rsConsulta(s_Select)
If rsImprimir.RecordCount > 0 Then
Report.Database.SetDataSource rsImprimir, 3
frmReportePW.CRViewer1.ReportSource = Report
frmReportePW.CRViewer1.ViewReport
frmReportePW.CRViewer1.DisplayGroupTree = False
frmReportePW.WindowState = 2
frmReportePW.Show vbModal
Else
MsgBox Msg_SIC_082, vbExclamation, Nombre_Sistema
End If
txtIdCliente.Text = ""
lblNombreCliente.Caption = ""
lblDireccion.Caption = ""
Exit Sub
ErrorImpresion:
Set rsReport = Nothing
Set Report = Nothing
Set frmReportePW = Nothing
MsgBox Err.Description, vbCritical, " Error "
End Sub

Nota:

Este reporte lo utilizo para imprimir informes normales, utilizando procedimientos almacenados para seleccionar la información deseas.

Salusos

Carlos Cherre

PD:

Por favor espero puedan enviarme una respuesta pronto..