运行中出现了实时错误2147217864（80040e38）,无法为更新定位行。一些值可能已在最后一次读取后已更改
AdoData.Open "select * from SFTlens where [no]= '" & No_R & "'", db, adOpenStatic, adLockOptimistic
AdoData1.Open "select * from SFTlens where [no]= '" & No_L & "'", db, adOpenStatic, adLockOptimistic
If AdoData.RecordCount = 1 And AdoData1.RecordCount = 1 Then '<========RL都有库存
If Val(AdoData.Fields("num")) >= Val(NUM_R) And Val(AdoData1.Fields("num")) >= Val(NUM_L) Then '<====库存足够？
AdoData.Fields("Num") = Val(AdoData.Fields("Num")) - Val(NUM_R)
AdoData1.Fields("Num") = Val(AdoData1.Fields("Num")) - Val(NUM_L)
AdoData.Fields("sumprice") = Val(AdoData.Fields("sumprice")) - Val(AdoData.Fields("price")) * Val(NUM_R)
AdoData1.Fields("sumprice") = Val(AdoData1.Fields("sumprice")) - Val(AdoData1.Fields("price")) * Val(NUM_L)
If AdoData.Fields("Num") = AdoData.Fields("Qnum") Then AdoData.Fields("PT") = 1
If AdoData1.Fields("Num") = AdoData1.Fields("Qnum") Then AdoData1.Fields("PT") = 1
AdoData.Update
AdoData1.Update
………………
在执行的时候，出现错误：
运行中出现了实时错误2147217864（80040e38）,无法为更新定位行。一些值可能已在最后一次读取后已更改。
选调试，定位在AdoData1.Update
这个问题怎么解决？
