我是菜鸟，正学习一个网上下载的源码，遇到一个问题
'按照领用单号读取所有明细，并更改库存数量
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

超过4条数据就会报错，错误3704 ，对象关闭时不允许使用

加上On Error Resume Next后不报错，但是超过4条以上的数据都丢失了
附有源码，您可以在领用中看一下，谢谢了！

谢谢了，我是菜鸟的

谢谢了老师