关于数据更新的问题

rs1.Open "select 现存数量 from book where 书名 ='" & TxtName.Text & "'", cn, adOpenDynamic, adLockOptimisticrs1(0).Value = rs1(0).Value - CInt(Txtbooknum.Text)rs1.Update
rs1.CloseFrmMain.Adodc1.Refresh
也就是将现存数量减去一个数然后在赋给原字段
adodc1是主界面的.有个datagrid与之绑定.
但每次执行后回到主界面该数值没有更新,只有关闭程序再开就有了.
请问是什么原因!