请教高手：rs.MoveNext 奇怪问题 报错3704对象关闭

Public Sub UpdateStore(ByVal TmpId As Long)
  Dim rs As New ADODB.Recordset  '定义结果集对象
  Dim lAmount As Integer   '领用数量
  Dim TmpOId As Long  '办公用品编号
  
  
  '设置SELECT语句，读取编号为TmpId的记录
  SqlStmt = "SELECT * FROM DrawList WHERE DId=" + Trim(TmpId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)
  Do While Not rs.EOF
    MyStore.OAmount = 0 - rs.Fields(3)      '领用数量
    MyStore.UpdateAmount (rs.Fields(2))     '办公用品编号
  rs.MoveNext
  Loop
End Sub
执行时报错3704对象数据关闭，但是数据集不超过5条数据就不报错。很奇怪，并且报错后看数据库，前5条数据都执行了，第6条以后的不执行，什么问题啊？