Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
rptDocument.Load(Report_Name)
rptDocument.SetDatabaseLogon("sa", SQLServerPassword) ' دستور كليدي براي لاگين شدن ريپورت به سرور
rptDocument.SetDataSource(Data Adapter)
Dim myConnectionInfo As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo()
myConnectionInfo.AllowCustomConnection = True
myConnectionInfo.ServerName = CurrentServer
myConnectionInfo.DatabaseName = CurrentDatabase
myConnectionInfo.UserID = "sa"
myConnectionInfo.Password = SQLServerPass
' اعمال سطح دسترسي به تمام جدولهاي بانك اطلاعاتي
Dim myTables As CrystalDecisions.CrystalReports.Engine.Tables = rptDocument.Database.Tables
For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
Dim myTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo = myTable.LogOnInfo
myTableLogonInfo.ConnectionInfo = myConnectionInfo
myTable.ApplyLogOnInfo(myTableLogonInfo)
Next
myCrystalReportViewer.ReportSource = rptDocument
myCrystalReportViewer.Refresh()