Dim Connection As New System.Data.OleDb.OleDbConnection( _
              "provider=Microsoft.Jet.OLEDB.4.0;" & "data source=" & _
              My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationD_
              ata & "\data\" & "GPS1_my_area.XLS" & ";Extended Properties=Excel" & _
              "8.0;")
            Dim DataAdapter As New System.Data.OleDb.OleDbDataAdapter("SELECT" & _
            "[Work Ctr], [Short description], [Man No], [others No], [control" & _
            "unit] FROM [GPS1_List$] WHERE [Man No] LIKE '" & _
            Me.txtRT2MachineNumber.Text & "%' ORDER BY [Work Ctr] UNION SELECT" & _
            "[Work Ctr], [Short description], [Man No], [others No], [control" & _
            "unit] FROM [GPS1_List$] WHERE [others No] LIKE '" & _
            Me.txtRT2MachineNumber.Text & "%' ORDER BY [Work Ctr]", Connection)
            Dim DataSet As New System.Data.DataSet()
 
            Connection.Open()
            DataAdapter.Fill(DataSet)
            Me.dgvExcel.DataSource = DataSet.Tables(0)
            Connection.Close()