关于VB 修改ACCESS数据的问题

[zdd080401]

帮我看看这段代码

Dim s As Integer
Dim n As Integer


Private Sub Command1_Click()
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "书名=" & " '" & Text1 & " '"
If Adodc2.Recordset.EOF Then
MsgBox "无此书!", , "提示"
Else
s = Val(InputBox("请输入销售图书的数量", , "请输入销售数量"))
n = Adodc2.Recordset.Fields("入库数量")
Adodc2.Recordset.Fields("入库数量") = n - s
End If
End Sub
Private Sub Command2_Click()
Form16.Hide
Form3.Show
End Sub

为什么我的入库数量不变。 哪里错了？ 谢谢。

[dbcontrols]

Adodc2.Recordset.Fields("入库数量") = n - s
Adodc2.Refresh

[LY3506]

Adodc2.Refresh

[专注VB编程开发20年]

Adodc2.Recordset.update
更新一下