Vb6 rs.EOF错误有人能检查并修复吗

有人能检查我的代码并修复它吗？因为 我认为（（if rs.EOF））附近有一个问题，因为我使用这个方法2次。 如果我运行它，就会出现以下错误：

错误：对象打开时不允许操作

rs.Close
qry1 = "select * from tblborrowers where tblItem_id=' + itemid + '"
    rs.Open qry1, conn

---

---

你犯了一个很简单的错误

您已在此处打开记录集

Set rs = conn.Execute(qry2)

而且，您再次在这里打开相同的记录集

qry1 = "select * from tblborrowers where tblItem_id=' + itemid + '"
    rs.Open qry1, conn

如果要再次打开Rs，请先将其关闭。这就是为什么它说： 对象处于打开状态时不允许执行操作

rs.Close
qry1 = "select * from tblborrowers where tblItem_id=' + itemid + '"
    rs.Open qry1, conn

---

或者，使用另一个记录集。

谢谢，伙计，我找到了。。你给我一个答案和想法来解决我的其他问题，呵呵呵呵，我怎么能标记它解决？我找不到任何按钮。。呵呵，在我的答案的开头，有一个记号叫做马克作为答案。如果你找到了解决方案，你可以点击它。而且，你欢迎。。。