Función que devuelve un RecordSet

[fewar]

Recuerden ser mas claros en sus preguntas y por supuesto en sus respuestas. Por ejemplo la pregunta es confusa, pues no se entiende si lo que quieres es una funcion que regrese un RecodSet o que reciba un RecordSet.

Suponiendo que deseas es una funcion que regrese un Rs, te dejo este codigo

Private Sub Form_Load()

Dim rs As New ADODB.Recordset

Set rs = New ADODB.Recordset

Set rs = fnExecRecordset(" Select * from USUARIOS ")

End Sub

Public Function fnExecRecordset(strQuery As String) As ADODB.Recordset
Dim rst As New ADODB.Recordset

'NO OLVIDES EL PROCESO DE ABRIR TU DB

rst.Open strQuery, ConOracle, 2, 3
Set fnExecRecordset = rst

End Function