プログラム開発「備忘録」

Function cloneRs(rsSrc)
　Dim strm
　
　Set cloneRs=CreateObject("ADODB.Recordset")

　If rsSrc.EOF Then Exit Function '-------------------> 終

　set strm = CreateObject("ADODB.Stream")

　　rsSrc.save strm
　　
　　cloneRs.open strm
　　
　　strm.close

End Function