一次全部关闭所有记录集，并销毁，我该怎么办！

Question

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rsado As New ADODB.Recordset
Dim rsado_1 As New ADODB.Recordset
Dim rsdel As New ADODB.Recordset
Dim rsupdate As New ADODB.Recordset
Dim rsinto As New ADODB.Recordset
Dim rs_1 As New ADODB.Recordset
Dim rs_2 As New ADODB.Recordset
Dim rs_3 As New ADODB.Recordset
Dim rs_4 As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset我在一数据编程中定义了，大量记录集，如上所显，
我想在窗体的Private Sub Form_Unload(Cancel As Integer)该事件里，
一次全部关闭所有记录集，并销毁，我该怎么办！请高人指点一二！谢谢！
是不是要用到集合的方法，我该怎么编？
救救我呀，我不想一个一个的去关闭记录集！
有啥简单办法没有？

Answer 1

才这么一点，还是一个一个关吧，你看你一个一个定义也没有嫌麻烦。
关于集合的方法，我告诉你，不过那个主要用于总个数不确定的时候用的。你可以定义一个共用的集合：Global AllRS As New Collection然后每当你用一个 RecordSet 的时候，就把它加到集合里去：AllRS.Add MyRS等到程序卸载时，遍历这个集合，把所有的 RecordSet 都关掉：Dim tRS As Variant
For Each tRS In AllRS
    tRS.Close
Next

Answer 2

con 关闭连接就行了吧，记录集就都没有了 啊。

Answer 3

set con=nothing
set form=nothing