需要动态设置Crystal Report的记录源

Question

我已尽力而为，现在有一个没有进展的日志卡纸。 我的VB6应用程序有大约100个水晶报告，它们都使用DSN（ODBC）连接到数据库，现在我希望能够从VB6代码设置所有水晶报告的数据源，而不再使用DSN。 请帮助，经过这么多天试图找到解决方案后我真的需要它。

我目前使用此代码调用报告：

Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Set Report = Appl.OpenReport(App.path & "\Reports\rptBooks.rpt")
frmReport!CRViewer1.ReportSource = Report
Screen.MousePointer = vbDefault
frmReport!CRViewer1.ViewReport
frmReport.Show 1

现在我想从VB6代码设置整个记录源，需要帮助。