[سؤال] مشكلة في اتصال كريستال ريبورت

كود :
Public Sub LogOn(ByVal poReport As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal strServer As String, ByVal strTable As String, ByVal strUsername As String, ByVal strPassword As String)





        Dim loConnInfo As New CrystalDecisions.Shared.ConnectionInfo

        loConnInfo.ServerName = strServer.ToString.Trim



        'MsgBox(strServer)

        loConnInfo.DatabaseName = strTable.ToString.Trim





        loConnInfo.UserID = strUsername.ToString.Trim



        'MsgBox(strUsername)

        loConnInfo.Password = strPassword.ToString.Trim



        ' MsgBox(strPassword)

        loConnInfo.IntegratedSecurity = False



        Dim loTables As Tables

        Dim loTable As CrystalDecisions.CrystalReports.Engine.Table

        Dim loTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo

        loTables = poReport.Database.Tables



        For Each loTable In loTables

            loTableLogonInfo = loTable.LogOnInfo

            loTableLogonInfo.ConnectionInfo.UserID = strUsername

            loTableLogonInfo.ConnectionInfo.Password = strPassword

            loTableLogonInfo.ConnectionInfo.ServerName = strServer

            loTableLogonInfo.ConnectionInfo.DatabaseName = strTable

            loTableLogonInfo.ConnectionInfo.IntegratedSecurity = False

            loTable.ApplyLogOnInfo(loTableLogonInfo)



        Next

    End Sub