One report to pull data from SQL or DB2

Question

Hi Guys,
First post here.  I have scoured the internet using our good friend google for answers and have come up empty.  I hope someone can help me here!
Some Info: Crystal XI R2, Visual Studio 2005, Ms SQL Server 2005, DB2, VB.NET
What I am trying to accomplish is using one report to pull data from either SQL 2005 or DB2.
The problem I get is if the report is configured to pull data from SQL 2005, I cannot change it using the code below to pull data from DB2.  The SQL Report uses the Microsoft OLEDB Provider.  The DB2 report uses the IBM DB2 UDB for iSeries IBMDA400 OLEDB provider.  When I quickwatch the oCRTable logon information, it seems to retain the other database's info.
Any ideas?
My code:
    Private Sub LoadRpt(ByVal rpt As String)
        Try
            Dim strReport As String
            Dim crReportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
            Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
            Dim oCRTable As CrystalDecisions.CrystalReports.Engine.Table
            Dim oCRConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo()
            strRptNm = String.Format(".rpt", rpt )
            strReport = String.Format("\{1}", Server.MapPath("Reports"), rpt )
            crReportDocument.Load(rpr)
            '   check to make sure report is loaded; if not, then do nothing
            If crReportDocument.IsLoaded Then
                oCRConnectionInfo.DatabaseName = ConfigurationManager.AppSettings.Item("DataBase")
                oCRConnectionInfo.ServerName = ConfigurationManager.AppSettings.Item("Server")
                oCRConnectionInfo.UserID = ConfigurationManager.AppSettings.Item("Profile")
                oCRConnectionInfo.Password = ConfigurationManager.AppSettings.Item("Password")
                For Each oCRTable In crReportDocument.Database.Tables
                    oCRTable.LogOnInfo.ConnectionInfo = oCRConnectionInfo
                    oCRTable.ApplyLogOnInfo(oCRTable.LogOnInfo)
                    oCRTable.Location = oCRTable.Location
                Next
                For Each rpt In crReportDocument.Subreports()
                    For Each oCRTable In rpt.Database.Tables
                        oCRTable.LogOnInfo.ConnectionInfo = oCRConnectionInfo
                        oCRTable.ApplyLogOnInfo(oCRTable.LogOnInfo)
                        oCRTable.Location = oCRTable.Location
                    Next
                Next
            ... other code ...
            End If
        Catch ex As Exception
            ... other code ...
        End Try
    End Sub
Edited by: Mace Windu on Feb 7, 2009 7:55 AM
Edited by: Mace Windu on Feb 7, 2009 7:56 AM

Answer 1

David,
Your suggestion worked to near perfection.  The only problem was that if I configured the datasource locations of the report and sub reports in CR to use the SQL ODBC, the .net program would successfully log in using the DB2 info but had a problem reading the data.  If I configured the datasource locations of the report and subreports in CR to use the DB2 ODBC, everything worked!  Thanks for the advice. 
The force is strong with you.
Mace