如何将Recordset存入Collection，避免被覆盖并实现按需调用与关闭？

完全可以通过Collection（或Dictionary）来管理多个Recordset实例，避免单变量被覆盖的问题，以下是具体操作步骤：

1. 从Collection中调用指定的Recordset #

你已经通过sTableName作为Key将Recordset存入Collection，调用时直接通过Key索引即可：

' 声明目标Recordset变量（根据实际使用的库选择ADODB或DAO）
Dim targetRst As ADODB.Recordset
' 通过表名（Key）从Collection中获取对应的Recordset
Set targetRst = m_ColRS(sTableName)

' 正常使用获取到的Recordset，示例：遍历数据
If Not targetRst.EOF Then
    targetRst.MoveFirst
    Do While Not targetRst.EOF
        Debug.Print targetRst("你的字段名")
        targetRst.MoveNext
    Loop
End If

注意：若指定Key不存在，直接索引会触发错误，建议先做存在性检查：

Dim rstExists As Boolean
rstExists = False
Dim item As Variant
For Each item In m_ColRS
    If m_ColRS.Key(item) = sTableName Then
        rstExists = True
        Exit For
    End If
Next

If rstExists Then
    Set targetRst = m_ColRS(sTableName)
    ' 执行后续操作
End If

（如果改用Dictionary，存在性检查更简洁：If m_DicRS.Exists(sTableName) Then）

2. 关闭并清理指定的Recordset #

使用完毕后，需先关闭Recordset释放资源，再从Collection中移除对应条目：

' 获取目标Recordset
Dim targetRst As ADODB.Recordset
Set targetRst = m_ColRS(sTableName)

' 关闭并释放Recordset
If Not targetRst Is Nothing Then
    If targetRst.State = adStateOpen Then ' 先检查是否处于打开状态
        targetRst.Close
    End If
    Set targetRst = Nothing
End If

' 从Collection中移除该条目
m_ColRS.Remove sTableName

3. 批量清理所有Recordset（模块退出时） #

若需一次性清理Collection中所有Recordset，可遍历处理：

Dim rstItem As ADODB.Recordset
Dim keyList As New Collection

' 先收集所有Key，避免遍历中修改Collection触发错误
Dim i As Integer
For i = 1 To m_ColRS.Count
    keyList.Add m_ColRS.Key(i)
Next

' 遍历Key列表逐个清理
For Each key In keyList
    Set rstItem = m_ColRS(key)
    If Not rstItem Is Nothing Then
        If rstItem.State = adStateOpen Then
            rstItem.Close
        End If
        Set rstItem = Nothing
    End If
    m_ColRS.Remove key
Next

' 最后清空Collection本身
Set m_ColRS = Nothing

4. 优化：添加新Recordset前清理旧实例 #

为避免同一表名的Recordset重复存入导致内存泄漏，添加新实例前先检查并清理旧实例：

Dim existingRst As ADODB.Recordset
On Error Resume Next ' 临时忽略Key不存在的错误
Set existingRst = m_ColRS(sTableName)
On Error GoTo 0 ' 恢复正常错误处理

If Not existingRst Is Nothing Then
    ' 清理旧实例
    If existingRst.State = adStateOpen Then
        existingRst.Close
    End If
    Set existingRst = Nothing
    m_ColRS.Remove sTableName
End If

' 添加新的Recordset
m_ColRS.Add rst, sTableName

内容的提问来源于stack exchange，提问作者Pacman