Set sub report data source in crystal report with vb6

See more:

VB6

CrystalReports

I'm trying to use Crystal reports 9 to add report with sub report on vb 6 code. This will print without previewing.

Dim RptRec As New CryMainReport

RptRec.Database.SetDataSource sqlMainReportRec
RptRec.Subreport1.OpenSubreport.Database.SetDataSource sqlSubReportRec
RptRec.ReadRecords    
RptRec.PrintOut False

But in the printout it's not showing the data for the sub report. I placed this sub report in the main report's footer section. and sub report is an existing report of the project.

What I have tried:

Dim RptRec As New CryMainReport

RptRec.Database.SetDataSource sqlMainReportRec
RptRec.Subreport1.OpenSubreport.Database.SetDataSource sqlSubReportRec
RptRec.ReadRecords    
RptRec.PrintOut False