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