VS 2012 Crystal Report ถามหน้าข้อมูลการ Login ของ Database

            Try
                Dim crtableLogoninfos As New TableLogOnInfos
                Dim crtableLogoninfo As New TableLogOnInfo
                Dim crConnectionInfo As New ConnectionInfo

                Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
                Dim CrTables As Tables
                Dim CrTable As Table

                Dim rpt As New B2S
                Dim directory As String = My.Application.Info.DirectoryPath
               
                rpt.SetParameterValue("Waveorder", TextBox1.Text)
                rpt.SetParameterValue("fld_plate", TextBox2.Text)

                CrTables = rpt.Database.Tables
                For Each CrTable In CrTables
                    Dim dbname As String = "ABOOKWMS_new1"
                    Dim servername As String = "xx.xx.xxx.xxx"

                    With crConnectionInfo
                        .ServerName = servername
                        .DatabaseName = dbname
                        .UserID = "sa"
                        .Password = "1234"
                    End With
                    crtableLogoninfo = CrTable.LogOnInfo
                    crtableLogoninfo.ConnectionInfo = crConnectionInfo
                    CrTable.ApplyLogOnInfo(crtableLogoninfo)
                Next
                Me.CrystalReportViewer1.ReportSource = rpt
               
                rpt.DataSourceConnections.Clear()
                Me.CrystalReportViewer1.Refresh()

            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try