十万火急，vb+access的软件，修改后

strSql = "update 资料表 set 名称 = '" & mch & " ',供应商名 = '" & gyshm & " ',类别码     = '" & lbm & " ',评测人员 = '" & pcry & " ',评测结果 = '" & pcjg & " ',入库时间 = '" & rkshj & " ',位置码 = '" & wzhm & " ' where 编号 = '" & bh & " '"
  
con.Execute strSql执行以上操作update后，再用rs.movenext和rs.moveprevious时，显示的数据仍然没有更新！（数据库中当然更新了）。如何实时更新rs啊？
这是不是这两句的问题啊？
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic求救高手！！1