vb如何复制一个对象？

Question

Dim rsSystem As New adodb.Recordset
    Dim rsSystem2 As New adodb.Recordset
    ……
    rsSystem.open ……
 
然后我想把rsSystem复制一份，即（让rsSystem2＝rsSystem）
不知道如何做到？
主要是我不想再用rsSystem2.open一次，浪费时间。

Answer 1

我用
Set     rsSystem2 = rsSystem
结果两个是指向一个地方得，
对rsSystem的过滤影响rsSystem2
！！！

Answer 2

Dim rsSystem2 As  adodb.Recordset
set rsSystem2=rsSystem

Answer 3

明白了，不是有clone方法吗：
Dim rsSystem2 As  adodb.Recordset
set rsSystem2=rsSystem.Clone(adLockOptimistic)

Answer 4

ft，回帖请先看贴啊
我的意思是，比如：rsSystem.close
此时rsSystem2还是open的
即完全拷贝一份，不是两个引用指向一个对象！！！！

Answer 5

clone里的参数是什么啊？
另外，问个问题，
cmd＝“select distinct ……”
rs.open的时候用adlockoptimistic 则不会去掉重复的记录
那么，
clone的参数是不是也会有这个影响呢？