数据库访问报错

Question

Set  adoTempRS  =  New  Recordset  
adoTempRS.Open  "  select  *  from  CZT09  where  XTDWDM='"  &  strERPDWDM  &  "'  and  CZSCDH='"  &  adoGGRS.Fields("S_gcggtzd_ph").Value  &  "'  and  CZPROD='"  &  adoGGMXRS.Fields("S_gcggtzdmx_zj").Value  &  "'  and  SSCJDM='"  &  adoGGMXRS.Fields("S_gcggtzdmx_cj").Value  &  "'  and  CZRWBH='"  &  adoGGMXRS.Fields("S_gcggtzdmx_orwh").Value  &  "'    and  CZSEQ="  &  adoGGMXRS.Fields("S_gcggtzdmx_wlxh").Value  &  "",  HZerpcnn,  adOpenDynamic,  adLockOptimistic  
iCount  =  0  
While  Not  adoTempRS.EOF  
           iCount  =  iCount  +  1  
           adoTempRS.Fields("CZRNBR").Value  =  iCount  
           adoTempRS.Update  
           adoTempRS.MoveNext  
Wend  
在update  后再movenext  ，有时会报错：："无法为更新行集定位:一些值可能已在最后读取后改变"，但有时又不报，是在那个时候还有其他人也在访问该记录吗？请各位帮忙，歇谢！！！

Answer 1

你的程序在修改该数据时，该数据刚刚被别人改过，请改变打开方式或者修改前再次打开以减少错误发生，我以前也经常发现这个问题。