大侠们请赐教,怎么在adodb中修改指定字段值

大侠们请赐教,如何在adodb中修改指定字段值?
大侠们请赐教,如何在adodb中修改指定字段值?

With   adors
          strSQL   =   "   Select     *   from     学号 "
          .CursorLocation   =   adUseClient
          .Open   strSQL,   adocn,   adOpenDynamic,   adLockBatchOptimistic
End   With
For   count   =1   to   adors.RecordCount
          With   adors
                    .Fields( "学号 ")   =   "   001 "
                    .Update
                    .MoveNext
          End   With
next
语句执行后字段学号没有任何变化,请大侠们赐教呀!
代码应该如何该,谢谢啦!


------解决方案--------------------
可以在循环完毕后执行 adors.UpdateBatch , 一次性更新所有数据