Problema con funcion retorna recordset

[alone-in-the-chat]

aver si alguien me puede dar una mano resulta que deseo hacer una funcion que me retorne un objecto recordset hace musho que no uso visual 6.0 y como que olvide como va la cosa , y el tiempo apremia je.
------------------------------------------------------
Public Function Consulta(ByVal strconsulta As String) As ADODB.Recordset
rs.Open strconsulta, cn
Consulta = rs
End Function
-----------------------------------------------------------------
el error se produce al momento de igualar el nombre de mi funcion con el recordset alli debe ir una funcion especifica kreo pero no se cual es  aver si alguien me da una mano

[alone-in-the-chat]

olvidenlo ia lo solucione grax