private void Page_Init(object sender, EventArgs e)
  {
     crReport = new ReportDocument();
    
    string reportName = Request.QueryString["ReportName"];
    string qServer = Request.QueryString["qServer"];
    string rptPath = Request.PhysicalPath.Substring(0, 2) + ConfigurationManager.AppSettings["rptDefinitionsPath"];
    crReport.Load(@rptPath + reportName);
    ParameterDiscreteValue discreteVal = new ParameterDiscreteValue();
    ParameterRangeValue rangeVal = new ParameterRangeValue();
    ParameterValues curvalues = new ParameterValues();
    foreach (ParameterFieldDefinition parafld in crReport.DataDefinition.ParameterFields)
    {
      if (parafld.DiscreteOrRangeKind.ToString() == "DiscreteValue")
      {
        discreteVal.Value = Request.QueryString[parafld.ParameterFieldName];
        if (discreteVal.Value != null)
        {
          curvalues.Add(discreteVal);
          parafld.ApplyCurrentValues(curvalues);
        }
      }
    }
    CrystalDecisions.Shared.ConnectionInfo connectionInfo = new CrystalDecisions.Shared.ConnectionInfo();
  
    connectionInfo.ServerName = qServer;
    connectionInfo.UserID = "reporting";
    connectionInfo.Password = "rlrootg";
    // set report connection for main report
    SetDBLogonForReport(connectionInfo, crReport, qServer);
    // set report connection for any subreports
    SetDBLogonForSubreports(connectionInfo, crReport, qServer);
    // set group tree function off         
    crystalReportViewer.DisplayGroupTree = false;
    // view report
    
    crystalReportViewer.ReportSource = crReport;
    
  }

  private void SetDBLogonForReport(CrystalDecisions.Shared.ConnectionInfo connectionInfo, ReportDocument reportDocument, string qServer)
  {
    Tables tables = reportDocument.Database.Tables;
    foreach (CrystalDecisions.CrystalReports.Engine.Table table in tables)
    {
      TableLogOnInfo tableLogonInfo = table.LogOnInfo;
      tableLogonInfo.ConnectionInfo = connectionInfo;
      table.ApplyLogOnInfo(tableLogonInfo);
    }
  }

  private void SetDBLogonForSubreports(CrystalDecisions.Shared.ConnectionInfo connectionInfo, ReportDocument reportDocument, string qServer)
  {
    Sections sections = reportDocument.ReportDefinition.Sections;
    foreach (Section section in sections)
    {
      ReportObjects reportObjects = section.ReportObjects;
      foreach (ReportObject reportObject in reportObjects)
      {
        if (reportObject.Kind == ReportObjectKind.SubreportObject)
        {
          SubreportObject subreportObject = (SubreportObject)reportObject;
          ReportDocument subReportDocument = subreportObject.OpenSubreport(subreportObject.SubreportName);
          SetDBLogonForReport(connectionInfo, subReportDocument, qServer);
          
        }
      }
    }
 }

Dim reportName As Request.QueryString = "STDPOReport"

Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Put user code to initialize the page here

'CrystalReportViewer1.ReportSource = New WebServ5.STPMBReportService

'Dim NewServ1 As New WebServ5.service

Dim crConnectionInfo As New ConnectionInfo

Dim crConnServer As String = ConfigurationSettings.AppSettings("CrConnServer")

Dim crConnDbName As String = ConfigurationSettings.AppSettings("CrConnDbName")

Dim crConnUserId As String = ConfigurationSettings.AppSettings("CrConnUserId")

Dim crConnPassword As String = ConfigurationSettings.AppSettings("CrConnPassword")

Dim err As String

Try

Dim myTable As CrystalDecisions.CrystalReports.Engine.Table

Dim MyLogonInfo As CrystalDecisions.Shared.TableLogOnInfo

For Each myTable In crReport.Database.Tables

MyLogonInfo.ConnectionInfo = crConnectionInfo

Next

End Sub

SetLogOnInfo(crConnServer, crConnDbName, crConnUserId, crConnPassword, "due_in") 
SetLogOnInfo(crConnServer, crConnDbName, crConnUserId, crConnPassword, "stores_item")
SetLogOnInfo(crConnServer, crConnDbName, crConnUserId, crConnPassword, "unit_info")
CrystalReportViewer1.ReportSource = crReport
Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
Dim MyLogonInfo As CrystalDecisions.Shared.TableLogOnInfo
For Each myTable In crReport.Database.Tables
'[With MyLogonInfo.ConnectionInfo
'End With
MyLogonInfo.ConnectionInfo = crConnectionInfo
myTable.ApplyLogOnInfo(MyLogonInfo)