遍历access表时出现了错误提示，救命！

Question

我建了一个表考试课程，记录数为1900条，然后用adodc1连接它，
当我对其进行统计然并符值的时候出现了如下错误
"row can't be located for updating,some values may have be changed since last read"
当我把循环的次数改为100的时候，则没有问题了
，有哪位仁兄帮我分析一下问题出在哪儿？谢了。。
代码如下:
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MovePrevious
m = Adodc1.Recordset.Fields("课程号")
Do While Adodc1.Recordset.BOF <> True
  Do While (Adodc1.Recordset.Fields("课程号") = m)
  If Adodc1.Recordset.Fields("校区") = "北校" Then
   bei = bei + Int(Adodc1.Recordset.Fields("考试数") / 30)
  Else
   nan = nan + Int(Adodc1.Recordset.Fields("考试数") / 30)
  End If
  Adodc1.Recordset.MovePrevious
  Loop
m = Adodc1.Recordset.Fields("课程号")
Adodc1.Recordset.MoveNext
Adodc1.Recordset.Fields("北自然班数") = bei
Adodc1.Recordset.Fields("南自然班数") = nan
Adodc1.Recordset.MovePrevious
Adodc1.Recordset.Updateloop

Answer 1

Adodc1.LockType = adLockPessimistic
Adodc1.CursorType = adOpenKeyset
.....

Answer 2

有的时候还出现一个错误提示就是"key column is insufficient or incorrect.too many rows are affected by update"