Crystal Reports and VB6

See more:

VB6

ADO

CrystalReports

Hi
I have a VB6 app running off a secured MS Access Database.
Currently - I have a number of reports created using an ADO datasource, and then from VB - I re-create the ado recordset (to link to the correct location of the db files).

Set Report = Appl.OpenReport(gsDBPath & "\" & gsReportName & ".rpt")

OpenADORS rs_Crystal, "SELECT * FROM " & gsReportSourceQry
Report.DiscardSavedData

On Error Resume Next
Report.Database.SetDataSource rs_Crystal
CRViewer.ReportSource = Report

CRViewer.Refresh
CRViewer.ViewReport

This works fine, but I have a couple of sub-reports. Any ideas how I programmatically re-link to a report with a sub-report using ADO - or is there a better way

Any ideas?

Steve