โหลด Form crystal report จากเครื่องอื่นแล้วถามรหัส รบกวนช่วยทีครับ!!

Public Class Form3
    Private rpt As ReportDocument
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" Then
            rpt = New ReportDocument()
            rpt.Load("D:\VB project\งานสต็อกสินค้า\Vat\Vat\CrystalReport1.rpt")
            Dim crtableLogoninfo As New TableLogOnInfo()
            Dim crConnectionInfo As New ConnectionInfo()
            Dim CrTables As Tables
            crConnectionInfo.ServerName = ".\SQLEXPRESSS"
            crConnectionInfo.DatabaseName = "VAT"
            crConnectionInfo.UserID = "sa"
            crConnectionInfo.Password = "123456"
            CrTables = rpt.Database.Tables
            For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
                crtableLogoninfo = CrTable.LogOnInfo
                crtableLogoninfo.ConnectionInfo = crConnectionInfo
                CrTable.ApplyLogOnInfo(crtableLogoninfo)
            Next
            rpt.SetParameterValue("หมายเลขสั่งซื้อ", Me.TextBox1.Text)
            Me.CrystalReportViewer1.ReportSource = rpt
            'Me.CrystalReportViewer1.Refresh()
        Else
            MsgBox("กรุณากรอกหมายเลขสั่งซื้อ")
        End If
    End Sub
    Protected Sub OnUnload(ByVal e As EventArgs)
        Try
            If rpt IsNot Nothing Then
                rpt.Close()
                rpt.Dispose()
                GC.Collect()

            End If
        Catch ex As Exception
            error_message(ex.Message)
        End Try
    End Sub

    Protected Sub rptCrystal_Unload(ByVal sender As Object, ByVal e As EventArgs)
        Try
            If rpt IsNot Nothing Then
                rpt.Close()
                rpt.Dispose()
                GC.Collect()

            End If
        Catch ex As Exception
            error_message(ex.Message)
        End Try
    End Sub
End Class

Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.SqlClient
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim dtAdapter As New SqlDataAdapter

        Dim ds As New DataSet
        Dim dt As DataTable
        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=123456;database=VAT;Max Pool Size=400;Connect Timeout=600;"
        strSQL = "SELECT * FROM withdraw_result WHERE หมายเลขสั่งซื้อ = '" & Me.TextBox1.Text & "' "

        objConn.ConnectionString = strConnString
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
        dtAdapter.SelectCommand = objCmd

        dtAdapter.Fill(ds, "DataTable1")
        dt = ds.Tables(0)

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing

        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.Load(directory & "\myCrystalReport1.rpt")
        rpt.Load("D:\VB project\งานสต็อกสินค้า\test report\test report\CrystalReport1.rpt")
        rpt.SetDataSource(dt)
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()

    End Sub
End Class