Passing Recordsets

[cbond]

Can any one tell me how to pass an open Recordset as a parameter? I have tried the following...

private sub SUB1()
'dim and open a rs called RS1

bResult = MyFunction(RS1)

'close recordset and move on

end sub

Public MyFunction(ByVal RS2 as ADODB.Recordset) as Boolean
RS2.open
'do something with the recordset
RS2.close
MyFunction = True
End Function

The RS2.Open fails to execute. If I move the call below the close recordset in SUB1 it works just fine. I have tried passing it ByVal and ByRef.

Any assistance would be appreciated!!

[ralph]

It fails when you try to open a recordset that is already open. You
open it in sub1, pass it to myFunction, then inappropriately you're opening it again with RS2.Open so remove that line.

Ralph

[cbond]

Thank you very much... it was too obvious and simple of a solution!!