Visual Basic - Depurar Errores en Clase

Private oCn As ADODB.Connection ' declaracion de variable
Private oRs As ADODB.Recordset ' declaracion de variable
Private rstconsulta As ADODB.Recordset

Private Sub Class_Initialize()
Set oCn = New ADODB.Connection ' creo o instancio
oCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Cursos.mdb;Persist Security Info=False"
oCn.Open
End Sub

Private Sub Class_Terminate()
oCn.Close
Set oCn = Nothing
End Sub

Public Function fConsulta() As Boolean

Set oRs = New ADODB.Recordset
oRs.Source = "SELECT * FROM Alumnos"
oRs.ActiveConnection = oCn
oRs.CursorLocation = adUseClient
oRs.Open
Set rstconsulta = oRs
oRs.Close
Set oRs = Nothing
fConsulta = True
End Function

Public Property Get ptyConsulta() As ADODB.Recordset
Set ptyConsulta = rstconsulta

End Property

----------------------------------------------------------------------------------------------------------------------------
me gustaria poner una rutina para depurar errores en la funcion fConsulta y que me la devuelva como mensaje de error en el formulario es un proyecto de 3 capas

gracias por todo

ncha!!:

Recupera el error mediante ON ERROR GOTO X
y luego envialo a una funcion o clase para tratarlo.

Es esto lo que querias decir?

Si eso como hago para mandarselo a otra funcion ? dentro de la misma clase? lo on error goto esta clarisimo
saludos amigo

Hola, declara dentro de la clase un evento public, por ejemplo

Public Event EventoError(Numero As Long, Descripcion As Long)

Dentro de la función de la clase, cuando se prduce el error lo ejecutas

RaiseEvent EventoError(Err.Number, Err.Decription)

dentro del form declara la var de la clase con WithEvents

Private WithEvents Objclase As MiClase

Luego desde el combo de eventos, al hacer esto ultimo, ahora te aparece tu evento, seleccionalo, y ya podes utilizarlo para el error desde el form cuando se produce en la clase

saludos.