try this,
Private
Sub ConfigureCrystalReports()
'setup db connection for report
myConnectionInfo.DatabaseName = ...
myConnectionInfo.UserID =...
myConnectionInfo.Password =...
myConnectionInfo.ServerName = ...
SetDBLogonForReport(myConnectionInfo)
If (Session("supplierRpt")
Is Nothing)
Then
supplierRpt = New ReportDocument()supplierRpt.Load(Server.MapPath("SupplierReport_Final.rpt"))
LoadDataSources()
supplierRpt.SetDataSource(dsOcc)
supplierRpt.Subreports("FailOcc").SetDataSource(dsOcc.Tables("FailOcc"))
supplierRpt.Subreports("IndexByFailure").SetDataSource(dsOcc.Tables("IndexFail"))
supplierRpt.Subreports("FailByRank").SetDataSource(dsOcc.Tables("IndexFail"))
supplierRpt.Subreports("FailureType").SetDataSource(dsOcc.Tables("FailureType"))
supplierRpt.Subreports("SupplierRank").SetDataSource(dsOcc.Tables("SupplierRank"))
supplierRpt.Subreports("ComRank").SetDataSource(dsOcc.Tables("ComRank"))
supplierRpt.Subreports("ResponseTime").SetDataSource(dsOcc.Tables("ResponseSummary"))supplierRpt.Subreports("ResponseSummary").SetDataSource(dsOcc.Tables("ResponseSum"))
SetParameters()
ApplyParams()
Session("supplierRpt") = supplierRpt
Else
supplierRpt = CType(Session("supplierRpt"), ReportDocument)
End If
crv.ReportSource = supplierRpt
End Sub