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
On Error Resume Next
CRViewer.ReportSource = Report
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