计算及数据更新

我用的是vb中的adodc控件连接access数据库adodc+DataGrid
我想把表中字段（直接福利费）通过字段（直接工资）*14%来自动添加到字段（直接福利费）中，具体代码如下：
'计算福利费
Private Sub Command2_Click()
       mlink = "provider=microsoft.jet.oledb.3.51; persist security info= false;"
       mlink = mlink + "data source=工资表.mdb"
       Adodc1.ConnectionString = mlink
       Adodc1.CommandType = adCmdUnknown
       
              Adodc1.RecordSource = "update 1车间工人工资及福利费 set 直接福利费=直接工资*0.14"
       'Adodc1.Recordset.UpdateBatch adAffectAll
       Adodc1.Recordset.Update
      End Sub
但是运行时不会显示更新的数据库，关闭重新运行时会更新数据库
不能即时更新
哪位师傅指点一下！谢谢！