计算及数据更新解决方法

计算及数据更新
我用的是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
但是运行时不会显示更新的数据库，关闭重新运行时会更新数据库
不能即时更新
哪位师傅指点一下！谢谢！

[解决办法]
dim sql as string

sql= "update 1车间工人工资及福利费 set 直接福利费=直接工资*0.14 "

Adodc1.Recordset.ActiveConnection.Execute sql

呵呵 比較囉嗦的