Visual Basic

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"