01.Dim rpt As New ReportDocument()
02.
03.rpt.Load(Server.MapPath("../Rpt/myReport.rpt"))
04.
05.Dim crtableLogoninfo As New TableLogOnInfo()
06.Dim crConnectionInfo As New ConnectionInfo()
07.Dim CrTables As Tables
08.
09.Dim db = YourClass.GetDatabaseConnection()
10.crConnectionInfo.ServerName = db.HOST
11.crConnectionInfo.DatabaseName = db.DBNAME
12.crConnectionInfo.UserID = db.UID
13.crConnectionInfo.Password = db.UPWD
14.CrTables = rpt.Database.Tables
15.
16.For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
17. crtableLogoninfo = CrTable.LogOnInfo
18. crtableLogoninfo.ConnectionInfo = crConnectionInfo
19. CrTable.ApplyLogOnInfo(crtableLogoninfo)
20.Next
21.
22.rpt.SetParameterValue("pCustomerID", strCustomerID)
23.rpt.RecordSelectionFormula = "Formula"
24.Me.rptCrystal.ReportSource = rpt
