Visual Basic - problemas retornando un recordset

tengo una funcion que me retorna un recordset, el cual me da un error al querer abrirlo desde el procedimiento que lo llamo. que estoy haciendo mal?
una idea del codigo que utilizo es la siguiente:

Private Sub Form_Load()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Set rs = Consulta
Set rs = Nothing
End Sub

Private Function Consulta() As ADODB.Recordset
Dim cn as ADODB.Cconnection
Dim rs1 As ADODB.Recordset

...
codigo de consultas
...

Set Consulta = rs1 ' devuelvo el recordset
Set rs1 = Nothing
Set cn = Nothing
End Function

rs1 funciona perfecto, me realiza la consulta y me devuelve registros.
rs lo uso para llenar una herarchical flex grid, pero no puedo recorrer el recordset ya que no esta abierto. (no estoy usando un objeto connection en el Form_Load)

saludos

Para retornar un recordset desconectado la primero es que el CursorLocation del recordset debe estar del lado del cliente. Te quedaria el codigo como :

Private Sub Form_Load()
Dim rs As ADODB.Recordset

Set rs = Consulta()
...
Set rs = Nothing
End Sub

Private Function Consulta() As ADODB.Recordset
Dim cn as ADODB.Cconnection
Dim rs1 As ADODB.Recordset

rs1.CursorLocation = adUseCliente
...
codigo de consultas
...

Set Consulta = rs1 ' devuelvo el recordset
Set rs1 = Nothing
Set cn = Nothing
End Function

Prueba y me dices

el tema es que ejecuto un metodo de una clase que realiza una consulta y el recordset al que le asigo el retorno de ese metodo me queda cerrado y no me deja abrirlo porque dice que falta una conexicion.
cosa que si lo devuelvo desde una funcion no me pasa

gracias