[VB 6] Passare recordSet ADO a Function

[raffaeu]

Ciao volevo sapere con VB 6 il corretto codice per passare un ObjRs ad una funzione.
Io pensavo

Nella Routine Principale
---  .  ---  .  ---  .  ---  .  ---
Dim objRs as New ADODB.RecordSet
objRs.Open .....
Call Pass(objRs)

Funzione
---  .  ---  .  ---  .  ---  .  ---
Public Function Pass(ByVal objRs2 as new ADODB.RecordSet = Empty)
     For x = 1 To objRs2.RecordCount
         Print objRs2(0).value
     Next
End Function