在VBScript、VB6或VBA中，经常需要打开数据库并使用Recordset对象执行SQL查询。但是，为了保持数据访问的最佳性能，我们通常不希望一次打开太多Recordset对象或者花费过多的时间打开数据库。一个常见的解决方法是将此类打开的Recordset对象存储在一个集合中，以便在需要时访问它们，并在不需要它们的时候关闭它们。

一个简单的示例代码如下：

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rsCollection As New Collection

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myDB.mdb;Persist Security Info=False"

'' add opened recordset to the collection
rs.Open "SELECT * FROM myTable", con
rsCollection.Add rs

'' add more opened recordsets to the collection
rs.Open "SELECT * FROM myTable2", con
rsCollection.Add rs

'' close individual recordset on-demand
rsCollection(1).Close
rsCollection.Remove 1

'' close all recordsets in the collection
For Each rs In rsCollection
    rs.Close
Next

'' clear the collection
Set rsCollection = Nothing

con.Close
Set con = Nothing

在这个示例中，我们首先创建了一个Connection对象，并使用它打开了一个Access数据库。然后我们打开了两个Recordset对象，并将它们都添加到了一个名为rsCollection的集合中。在代码的稍后部分，我们演示了如何在需要时单独关闭一个Recordset对象，并将其从集合中移除。我们还演示了如何关闭集合中的所有Recordset对象，并在完成后清空集合对象。

集合的好处在于，在不需要重复打开数据库或重复查询的情况下，可以轻松地处理多个查询。此示例代码可帮助您理解如何使用VBScript、VB6或VBA以收集打开的Recordset对象，并在需要时根据需要关闭它们。