数据记录集的一个问题，是不是我搞错了？

dim rsprod
set rsprod=server.createobject("adodb.recordset")
'打开记录集
rsprod.CursorLocation =adUseClient
rsprod.activeconnection =objconn
rsprod.open" SELECT prodname FROM prod",,3,
'断开连接
set rsprod.activeconnection=nothing

'保存该记录集到一个变量中
dim rstmp
set rstmp =rsprod

response.write rstmp("volplanned") '这里是正确的，可以取出rstmp中的数据

'关闭记录集rsprod
rsprod.close

'下面就不行了，说是"项目在所需的名称或序数中未被发现。"为什么？难道rstmp还与rsprod有关系吗？
response.write rstmp("volplanned")

请问该怎么办才能让记录集rsprod关闭后变量rstmp里的内容不变？

---------------------------------------------------------------

把set rstmp =rsprod
改成set rstmp =rsprod.clone