[VB 6.0]Richiama una funzione con parametro Recordset

[Sypher]

io farei così:

Private Function rcs() As ADODB.Recordset
    Dim conn As New ADODB.Connection
    Dim myrcs As New ADODB.Recordset
    conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\miodb.mdb;Uid=Admin;Pwd=;"
    rcs.Open "select * from tabella1", conn
    Set rec = myrcs 
End Function

Private Sub Form_Load()
    Dim tuorcs As ADODB.Recordset
    Set tuorcs = rcs
End Sub

mi spiego?
nell'esempio l'ho messo nel form_load il recordset restituito dalla funzione (tuorcs)