数据库访问报错

[lhh]

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 ，有时会报错：："无法为更新行集定位:一些值可能已在最后读取后改变"，但有时又不报，是在那个时候还有其他人也在访问该记录吗？请各位帮忙，歇谢！！！

[lhh]

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

[lhh]

how can i do

[lihh]

UP!!UP!!!