Ms access 如何按ID从库存中减少数量？

我需要通过匹配产品ID从表中扣除数量。如果我运行下面的代码，它会扣除一个数量，但问题是，例如

我输入的身份证号码为1，必须点击两次扣除按钮才能扣除。
第二次我将ID号更改为2，然后单击扣除按钮。。。它第一次从ID号1本身中扣除。但现在，如果我再次单击，它将从ID号2中扣除

我如何解决这个问题？
我使用MS Access作为数据库（ADODB）

---

提前感谢。

在更新

adodc

之前，请尝试关闭

con

。还要考虑一下，谢谢你，格斯伯格！它起作用了！

Option Explicit
Dim con As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Private Sub Command1_Click()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset

con.Open (adodc1.ConnectionString)
sql = "UPDATE stock SET QTY = QTY - 1 WHERE ID = '" & IDval.Text & "'"
con.Execute (sql)
Adodc1.Recordset.Update
Adodc1.Refresh
con.Close
End Sub