.net 将值与数据库中的现有值一起添加

我正在开发一个应用程序，我希望它更新一些信息，并将现有数据库中的数量值添加到用户输入的新值中。它正在正确地更新，但不是将数量加在一起，而是将新值放在数据库中现有值的后面d处。例如，如果我之前在数据库中有5个，而在新文本框中有3个，而不是新值为8，则在数据库中显示35个。这是我的代码，它怎么能增值呢 con=New-OleDbConnection（“Provider=Microsoft.Jet.Oledb.4.0；数据源=“&Application.StartupPath&“\pharmacy.mdb”） con.Open（） 将ct1的尺寸标注为String=“select*from stock where code=”&TxtCode.Text&“

---

谢谢，但它正在显示消息，未定义的函数“convert”在表达式中。我应该做什么股票列的定义是什么？我打赌这不是任何类型的数字。。。。

        cmd = New OleDbCommand(ct1)
        cmd.Connection = con
        rdr = cmd.ExecuteReader()

        If rdr.Read Then

            con = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\pharmacy.mdb")
            con.Open()

            Dim cb As String = "UPDATE stock SET company = @d1 , Productname =@d2, code=@d3, quantity= [quantity] + @d4, unitPrice = @d5, ddate = @d6, batchNo = @d7, Type = @d8, expDate =@d9 " + "WHERE code = @d3"

            cmd = New OleDbCommand(cb)

            cmd.Connection = con


            cmd.Parameters.Add(New OleDbParameter("@d1", "company"))
            cmd.Parameters.Add(New OleDbParameter("@d2", "productName"))


            cmd.Parameters.Add(New OleDbParameter("@d3", "code"))

            cmd.Parameters.Add(New OleDbParameter("@d4", "quantity"))

            cmd.Parameters.Add(New OleDbParameter("@d5", "unitPrice"))
            cmd.Parameters.Add(New OleDbParameter("@d6", "ddate"))
            cmd.Parameters.Add(New OleDbParameter("@d7", "batchNo"))
            cmd.Parameters.Add(New OleDbParameter("@d8", "type"))
            cmd.Parameters.Add(New OleDbParameter("@d9", "expDate"))



            cmd.Parameters("@d1").Value = CmbCompany.Text
            cmd.Parameters("@d2").Value = TxtPrdtName.Text

            cmd.Parameters("@d3").Value = TxtCode.Text


            cmd.Parameters("@d4").Value = TxtQuantity.Text

            cmd.Parameters("@d5").Value = (TxtunitPrice.Text)
            cmd.Parameters("@d6").Value = TxtDate.Text
            cmd.Parameters("@d7").Value = TxtBatchNo.Text()
            cmd.Parameters("@d8").Value = CmbType.Text
            cmd.Parameters("@d9").Value = dtpExpirationDate.Text


            cmd.ExecuteReader()

            MessageBox.Show("Successfully updated", "Product Details", MessageBoxButtons.OK, MessageBoxIcon.Information)

            rdr.Close()
            con.Close()