VB.NET ขอโค๊ดตัดสต๊อก Stock จากรายการในตาราง Lisview ของโปรแกรม VB หน่อยค่ะช่วยหน่อย

   For i = 0 To ListView1.Items.Count - 1
                Dim Upstock As String = ""
                Upstock = ("Update Durg")
                Upstock &= (" set quantity = quantity- " & ListView1.Items(i).SubItems(5).Text & " where ID_Durg ")
                With objCmd
                    .CommandType = CommandType.Text
                    .CommandText = Upstock

                    .Parameters.Clear()
                    .Parameters.Add("ID_Durg ", SqlDbType.Int).Value = ListView1.Items(i).SubItems(0).Text
                    .ExecuteNonQuery()
                End With
            Next

For i = 0 To ListView1.Items.Count - 1
                        Dim cmdD As New SqlCommand("Insert into tblSeller_Detail(Seller_ID, Product_ID, ProductName, Size, Unit_Price, Amount, Total) values ( '" & _
                                                   CInt(txtSellID.Text) & "','" & _
                                                   CInt(ListView1.Items(i).SubItems(0).Text) & _
                                                   "','" & CStr(ListView1.Items(i).SubItems(1).Text) & _
                                                   "','" & CStr(ListView1.Items(i).SubItems(2).Text) & _
                                                   "','" & CDbl(ListView1.Items(i).SubItems(3).Text) & _
                                                   "','" & CInt(ListView1.Items(i).SubItems(4).Text) & _
                                                   "','" & CDbl(ListView1.Items(i).SubItems(5).Text) & "')", cn)

                        Dim cmdU As New SqlCommand("Update P set P.Amount = P.Amount - " & CInt(ListView1.Items(i).SubItems(4).Text) & " FROM tblProduct AS P INNER JOIN tblSeller_Detail AS S ON (P.ProductName = S.ProductName) WHERE S.ProductName='" & CStr(ListView1.Items(i).SubItems(1).Text) & "'", cn)
                        cn.Open()
                        cmdU.ExecuteNonQuery()
                        cmdD.ExecuteNonQuery()
                        cn.Close()
Next i