SoloCodigo

mi problema es que quiero retornar un recordset ejecutando un metodo de una clase pero me queda cerrado y me dice que no puede abrirlo. el codigo resumido seria el siguiente:

Private Sub Form_Load()
  Dim rs As New ADODB.Recordset
  Dim Consulta As New cConsulta
 
  Set rs = Consulta.Ejecutar("SELECT * FROM clientes")
 
  // AQUI ESTA MI PROBLEMA. ya me dice que el recordset no se puede abrir
 
  Set rs = Nothing
  Set Consulta = Nothing
End Sub

Public Function Ejecutar(consulta as string) As ADODB.Recordset
  Dim cn As New cConexion
 
  cn.Inicializar App.path & "base de datos.mdb", ClaveBD
  cn.SQL consulta

  Set Ejecutar = cn.rs     // hasta aqui todo OK. el recordset devuelve registros
  Set cn = Nothing
End Function