ＤＢから取得したオブジェクトの受け渡し方法

質問

はじめましてＶＢ初心者でわけが分からなくなっています。ＤＢをクローズした後に取得したレコードセットを他の関数に渡すにはどうしたらよいでしょうか？おそらく、そんなのcloseせずにやればいいと思うかもしれませんが、可能かどうかがわかりません。どうか教えてくださいよろしくお願い致します。
下記のコードにて行ってます。Set rs = cn.Execute(strSQL)で取得しています。rsをＤＢを閉じた後も他の関数に渡せるようにしたい訳です。m(..)m

Dim cn As Object
Dim rs As Object
Private Sub getData()
Dim strSQL As String
Set cn = CreateObject("ADODB.Connection")
cn.Open "省略"
strSQL = "SELECT * FROM swan"
Set rs = cn.Execute(strSQL)
Set rs = nothing
Set cn.close
Set cn = nothing
End Sub

回答No.2

noname#27115

RSをプロシージャー外で宣言しているんですから

rs.Close
Set rs=Nothing
をしなければいいのでは?

受け取った側のプロシージャーで処理すればいいと思いますよ。

DimにするかPublicにするかはその状況によりますね。

回答No.1

noname#27115

adtgファイルとして保存してはどうですか?

参考URL：

http://www.google.co.jp/search?q=adtg&start=0&hl=ja&lr=lang_ja&ie=utf-8&oe=utf-8&client=firefox&rls=org.mozilla:ja:offic

お礼

どうも有り難う御座いました。ありがとう！！

補足

早速のご回答どうも有り難う御座います！！とても参考になりました。（^^）欲をいって申し訳ないのですが、adtgファイルに保存せずに（特殊な変数？これが謎）にオブジェクトをセットして渡す方法はないのでしょうか？m(..)m