请问老师这段代码为何无法更改表的数据？

我想在出库单的文本框“数量”内填入数字后，就让临时表“TMP_Tbl_库存表”内相应的物料的数量减少，于是写了这段：

Private Sub 数量_AfterUpdate()
Dim cnn: Set cnn = CurrentProject.Connection
Dim strSQL As String
strSQL = "SELECT * FROM [TMP_Tbl_库存表] WHERE [进厂编号]=" & SQLText(Me![进厂编号])
Dim rst 'As Recordset
Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
rst![库存数量] = rst![库存数量] - Me![数量]
End Sub

单步运行后，可以看到“rst![库存数量] ”的数量确实变了，但是打开“TMP_Tbl_库存表”，却发现表内的数值没变，请问这是怎么回事？

谢谢！