نحوه اتصال صحیح به Crystal Report در VB.Net

[LTR_INLINE][LTR_INLINE]Dim crConnectionInfo As New ConnectionInfo
Dim cryRpt As New ReportDocument
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim CrTables As Tables
Dim CrTable As Table

cryRpt.Load(Application.StartupPath.ToString & "ReportsRep_1.rpt")
CrystalReportViewer1.ReportSource = cryRpt
CrTables = cryRpt.Database.Tables

Dim Tedad_Parametr As Integer

cryRpt.SetDatabaseLogon(DatabaseUser, DatabasePass)

cryRpt.RecordSelectionFormula = Text_SelectFormula
Tedad_Parametr = Val(cryRpt.ParameterFields.Count.ToString())

For N = 0 To Tedad_Parametr

If cryRpt.ParameterFields(N).ParameterValueType = ParameterValueKind.NumberParameter Then
cryRpt.SetParameterValue(N, Val(Parameter_PRN(N)))
Else
cryRpt.SetParameterValue(N, Trim(Parameter_PRN(N)))
End If

Next N

crConnectionInfo.ServerName = ServerName
crConnectionInfo.DatabaseName = DatabaseName
crConnectionInfo.UserID = DatabaseUser
crConnectionInfo.Password = DatabasePass

For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
crConnectionInfo.IntegratedSecurity = True
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
CrTable.Location.Substring(CrTable.Location.LastIn dexOf(".") + 1)
Next

CrystalReportViewer1.Refresh
CrystalReportViewer1.ReportSource = cryRpt