[VB.NET] بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل

كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Search.Click



        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\mydata.accdb;Jet OLEDB:Database Password=shoma661979")

        Dim dt As New DataTable

        Dim total As Integer

        dt.Clear()

        Dim cmd As New OleDbCommand

        Dim da As New OleDbDataAdapter(cmd)

        Dim hugh = DateTimePicker1.Value.Date

        Dim hugh2 = DateTimePicker2.Value.Date





        With cmd

            .CommandText = "Select * from Travel where Data between  #" & hugh & "# And #" & hugh2 & "# order by data"

            .CommandType = CommandType.Text

            .Connection = con

        End With



        da.Fill(dt)

        DataGridView1.DataSource = dt



        For i As Integer = 0 To dt.Rows.Count - 1

            total = dt.Rows(i).Item("TotalTravelPrice") + total



            Label7.Text = total





        Next



        DateTimePicker1.Value.ToString("yyyy/MM/dd")

        TxtFacSearch.Text = ""

        TxtFacSearch.Text = ""









        'Me.DataGridView1.Columns(0).HeaderText = " رقم السفرية"

        Me.DataGridView1.Columns(1).HeaderText = " اسم المهندس"

        Me.DataGridView1.Columns(2).HeaderText = " اسم المصنع"

        Me.DataGridView1.Columns(3).HeaderText = " تاريخ السفرية"

        Me.DataGridView1.Columns(4).HeaderText = " نوع السفرية"

        Me.DataGridView1.Columns(5).HeaderText = " عدد الايام"

        Me.DataGridView1.Columns(6).HeaderText = "قيمة اليوم"

        Me.DataGridView1.Columns(7).HeaderText = " عدد الليالي"

        Me.DataGridView1.Columns(8).HeaderText = " قيمة الليلة"

        Me.DataGridView1.Columns(9).HeaderText = "قيمة السفرية"





        Me.DataGridView1.Columns(0).Width = 100

        Me.DataGridView1.Columns(1).Width = 100

        Me.DataGridView1.Columns(2).Width = 100

        Me.DataGridView1.Columns(3).Width = 100

        Me.DataGridView1.Columns(4).Width = 150

        Me.DataGridView1.Columns(5).Width = 50

        Me.DataGridView1.Columns(6).Width = 50

        Me.DataGridView1.Columns(7).Width = 50

        Me.DataGridView1.Columns(8).Width = 50

        Me.DataGridView1.Columns(9).Width = 80







        DataGridView1.Columns(0).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(1).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(2).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(3).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(4).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(5).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(6).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(7).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(8).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)

        DataGridView1.Columns(9).HeaderCell.Style.Font = New Font("Tahoma", 8, FontStyle.Bold)





        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter









        lblNumSelected.Text = DataGridView1.Rows.Count - 1



        If DataGridView1 IsNot Nothing Then

            Dim count As Integer = 0 'ترقيم تلقائي



            While (count <= (DataGridView1.Rows.Count - 1))

                DataGridView1.Rows(count).HeaderCell.Value = String.Format((count + 1).ToString(), "0")

                count += 1

            End While





        End If

        Me.DataGridView1.Columns(0).Visible = False





        DataGridView1.RowsDefaultCellStyle.BackColor = Color.LightBlue

        DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Wheat



        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter



        DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter



    End Sub