在程序里怎样更改crystal report 的数据源？

[gos_q]

已经做好20多个rpt文件，在开发的时候在rpt中指定了开发数据库DB1

现在要发布了，rpt要连接应用数据库DB2

因为这些rpt都是在代码里通过一个RpDoc对象调用的，

可不可以在这个RpDoc对象中设置连接到DB2数据库，这样我就不用去改那20多个rpt文件了，而且数据库可能以后还要变，我需要一种动态设置数据库的方法，

大家知道要怎样做吗？

我的代码写法如下

Dim RpDoc As New ReportDocument
RpDoc = New RP_TestRpt

CrystalReportViewer1.ReportSource = RpDoc