数据更新问题

dim hwqdrs as new adodb.recordset
Set hwqdrs = New ADODB.Recordset

With hwqdrs
    .ActiveConnection = CnNew
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockBatchOptimistic
    .Open hwqdsql
   End With
更新用Adodczwqd.Recordset.UpdateBatch更新后重新打开，却还是显示原来的数据，用select sum(zhym) as hwzl,sum(zwjs) as hwgs from bjhwqd where bjdbh='" & hwbjdbh & "'"计算得到的数据也是以前的