求助：应用自己编写的clone在vb中复制ADODB.Recordset时出错，求点拨
本人想试验一下用自编的clone在vb中复制ADODB.Recordset：
窗体只有一个command1按钮，点击时将rst1 的信息clone至rst2中，这两个两个都为ADODB.Recordset
按钮：
Private Sub Command1_Click()
Dim rst1 As ADODB.Recordset
Dim rst2 As ADODB.Recordset
Set rst1 = New ADODB.Recordset
Set rst2 = New ADODB.Recordset
Set rst2 = rst1.Clone
End Sub
克隆程序为：
Public Function Clone(ByVal rstSource As ADODB.Recordset) As ADODB.Recordset
Dim objSm As ADODB.Stream
Dim rstCopy As ADODB.Recordset
Set objSm = New ADODB.Stream
Set rstCopy = New ADODB.Recordset
rstSource.Save objSm, adPersistXML
rstCopy.Open objSm
Set Clone = rstCopy
Set objSm = Nothing
objSm.Close
End Function
运行时点击按钮出错：3704 对象关闭时不允许操作，监视表达式发现在运行完“Set rst1 = New ADODB.Recordset”
后，rst1中的、AbsolutePosition、EOF、BOF等值均为<对象关闭时不允许操作>
想让clone运行成功，我不知道应该怎么办
现求助于各位大侠，本人小虾米一个，对编程不是很了解，恳请指导一二
[最优解释]
你的rst1就没打开过，要执行操作必先打开,示例：
Dim rst1 As ADODB.Recordset
Dim rst2 As ADODB.Recordset
Set rst1 = New ADODB.Recordset '新建一个无连接的Recordset
rst1.Fields.Append "字段一", adBSTR, 20 '为Recordset添加一个字段
rst1.Open '打开Recordset,必须要先打开，才能后继操作
rst1.AddNew "字段一", "ppppp" '添加一条记录
Set rst2 = rst1.Clone '复制副本,可换为你自己写的Clone,
rst1.Close '关闭rst1
MsgBox rst2("字段一") '显示副本字段值
rst2.Close
Set rst1 = Nothing
Set rst2 = Nothing
