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
