Returning a recordset as an object

I have a class module that returns a recordset in the following way

public function GetRecordset() as adodb.recordset
dim rs as adodb.recordset

'//code to get recordset (disconnected)

set GetRecordset = rs

set rs = nothing

end function

I understand that this returns a reference to the recordset.

It is planned that the application will be upgraded to MTS.

My question is how do I get the function to return an object to the client application rather than a reference?

As I do not want the recordset in memory on the server

I have thought that i could use the clone method of a recordset in the client application and destroy the reference to the server side recordset.

Comments Please

thanks

Try sending it as a parameter:

Code:

---

public Sub GetRecordset(ByRef tmpRS as Adodb.Recordset)
dim rs as adodb.recordset

'//code to get recordset (disconnected)

set tmpRS = rs

set rs = nothing

end Sub

---

Hope this helps,