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

[LTR_INLINE][LTR_INLINE]Dim crCoectionInfo As New CoectionInfo
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

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

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

CrystalReportViewer1.Refresh
CrystalReportViewer1.ReportSource = cryRpt