大侠们请赐教,如何在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
语句执行后字段学号没有任何变化,请大侠们赐教呀!
代码应该如何该,谢谢啦!