Visual Basic

Using context as new DBContext()
Dim r = _
(
   From pi In context.ProductInfo
   Where pi.ProductID = p_Product_ID
   Select New productBulkTransfer With
  {
    .PartNumber = pi.PartNumber,
    ..... 30 more columns
  }
).SingleOrDefault()

Dim w As New PRODUCTINFO_RECYCLEBIN With
{
    .PartNumber = r.PartNumber,
    ..... 30 more columns
}

context.ProductInfo_RecycleBin.Add(w)
context.SaveChanges()

End Using

Dim CMD3 As New OleDb.OleDbCommand
SQL = "insert into reciptdetails" +
      "(Reciptid,Barcode,Itemcount,Itembuyprice,Itemsellprice)" +
      "values" +
      "(:0    ,:1    ,:2    ,:3    ,:4       )"
CMD3.Connection = Myconnection
CMD3.Transaction = Mytransaction
CMD3.CommandText = SQL
CMD3.Parameters.AddWithValue(":0", reciptid)
CMD3.Parameters.AddWithValue(":1", Barcode)
CMD3.Parameters.AddWithValue(":2", Itemcount)
CMD3.Parameters.AddWithValue(":3", BuyPrice)
CMD3.Parameters.AddWithValue(":4", SellPrice)
CMD3.ExecuteNonQuery()
CMD3.Dispose()

//Add up the total cost value = $163,315.23
m_totalCost += i.ExtCost

//Add up the total price value = $433,211.49
m_totalPrice += i.ExtPrice

//Add up the total margin value = $270,496.00
m_totalMargin += m_margin

//Add up the total cost value = $164.575.65
If (i.ExtCost > 0) Then
  m_totalCost = m_totalCost + i.ExtCost
ElseIf (i.ExtCost < 0) Then
  m_totalCost = m_totalCost - i.ExtCost
End If

//Add up the total price value = $437,101.63
If (i.ExtPrice > 0) Then
  m_totalPrice = m_totalPrice + i.ExtPrice
ElseIf (i.ExtPrice < 0) Then
  m_totalPrice = m_totalPrice - i.ExtPrice
End If