Visual Basic

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

SELECT [Inward].[agn], [item_master].[item_name], [Inward].[no_of_bundle], [store_master].[rack_name], [store_master].[store_no]
FROM (Inward INNER JOIN store_master ON [Inward].[store_no]=[store_master].[store_no]) INNER JOIN item_master ON [store_master].[user_id]=[item_master].[user_id]
WHERE [item_master].[status]=True And [Inward].[deleted_status]=False And [Inward].[closed_status]=False And [Inward].[agn]<>0 And [store_master].[status]=True;