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;

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim acsconn As OleDbConnection = New OleDbConnection _
    ("provider=SQLOLEDB;data source=DBserver;database=myDB;user ID=user;password=mypassword;")
    acsconn.Open()
    If acsconn.State = ConnectionState.Open Then
        MsgBox("Connected")

        Dim strsql As String = "insert into tran_log(hw_name,[type],[status],wh_function,[user],check_out_date)values(?,?,?,?,?,?);"

        Dim objcmd As New System.Data.OleDb.OleDbCommand(strsql, acsconn) ' the oledbcommand

        With objcmd
            .Parameters.AddWithValue("@ComboBox1", ComboBox1.SelectedItem)
            .Parameters.AddWithValue("@TextBox1", TextBox1.SelectedText)
            .Parameters.AddWithValue("@ComboBox2", ComboBox2.SelectedItem)
            .Parameters.AddWithValue("@ComboBox3", ComboBox3.SelectedItem)
            .Parameters.AddWithValue("@ComboBox4", ComboBox4.SelectedItem)
            .Parameters.AddWithValue("@DateTimePicker1", DateTimePicker1)


        End With
        Try
            objcmd.Connection.Open()
            Dim rowsAffected As Integer = objcmd.ExecuteNonQuery()
            Console.WriteLine("RowsAffected: {0}", rowsAffected)

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        'objcmd.ExecuteNonQuery()
        objcmd.Dispose()
        MsgBox("Saved")

    End If
    acsconn.Close()
End Sub

Dim strcom1 As String = ComboBox1.SelectedText
       Dim strcom2 As String = TextBox1.SelectedText
       Dim strcom3 As String = ComboBox2.SelectedText
       Dim strcom4 As String = ComboBox3.SelectedText
       Dim strcom5 As String = ComboBox4.SelectedText
       Dim strcom6 As New DateTimePicker()

       Dim objconnection As OleDb.OleDbConnection = Nothing
       Dim objcmd As OleDb.OleDbCommand = Nothing
       Dim strconnection As String, strSQL As String


       'connection string
       strconnection = "provider=SQLOLEDB;data source=DBserver;database=myDB;user ID=user;password=mypassword;"

       objconnection = New OleDb.OleDbConnection(strconnection)
       objconnection.ConnectionString = strconnection
       objconnection.Open()

       strSQL = "insert into tran_log(hw_name,[type],[status],wh_function,[user],check_out_date)values(@ComboBox1,@TextBox1,@ComboBox2,@ComboBox3,@ComboBox4,@DateTimePicker);"
       objcmd = New OleDb.OleDbCommand(strSQL, objconnection)
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@ComboBox1", strcom1))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@TextBox1", strcom2))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@ComboBox2", strcom3))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@ComboBox3", strcom4))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@ComboBox4", strcom5))
       objcmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("@DateTimePicker", strcom6))
       'objcmd.ExecuteNonQuery()

       'close connection
       objconnection.Close()
       MessageBox.Show("Entered Successfully!")

MDIForm1.loadReportinPDF "select iw.agn,ih.item_name,iw.no_of_bundle,sw.rack_name,sw.store_no from Inward iw,item_master ih,store_master sw where iw.deleted_status=ih.deleted_status", "STOCK PURCHASE-SAMPLE"