Visual Basic

System.Diagnostics.Process.Start("MyApplication")'My Application.exe
           Dim P As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName("MyApplication")(0)
           P.WaitForInputIdle()
           SetParent(P.MainWindowHandle, Me.Panel1.Handle)

MoveWindow(P.MainWindowHandle, 0, 0, 500, 300, True)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sqlsearch As String
        Dim con As New OleDb.OleDbConnection
        Dim date1 As String = DateTimePicker2.Value.ToShortDateString()
        date1 = date1 + " 00:00:00"
        Dim date2 As String = DateTimePicker3.Value.ToShortDateString()
        date2 = date2 + " 23:59:59"
        Dim scanner As String = ComboBox5.Text

        con.ConnectionString = "provider=SQLOLEDB;data source=myserver;database=mydb;user ID=user;password=mypassword;"
        ' Once again we execute the SQL statements against our DataBase

        If CheckBox1.CheckState = CheckState.Checked Then
            sqlsearch = "SELECT TOP(200) hw_name,[type],[status],wh_function,[user],check_out_date FROM tran_log WHERE check_out_date BETWEEN ? AND ? AND hw_name = ? order by check_out_date desc"
        Else : CheckBox1.CheckState = CheckState.Unchecked
            sqlsearch = "SELECT TOP(200) hw_name,[type],[status],wh_function,[user],check_out_date FROM tran_log WHERE check_out_date BETWEEN ? AND ? order by check_out_date desc"
        End If
        Dim adapter As New OleDbDataAdapter(sqlsearch, con)
        With adapter.SelectCommand.Parameters
            .AddWithValue("@startDate", date1)
            .AddWithValue("@endDate", date2)
            .AddWithValue("@scanner", scanner)
        End With

        ' Shows the records and updates the DataGridView

        Dim dt As New DataTable("ScannerHistory")

        adapter.Fill(dt) -- "This is where I'm getting the error."
        DataGridView1.DataSource = dt
    End Sub