Visual Basic - mostrar error de recordset

HOLA , ME GUSTARIA al no conseguir abrir un recordset localizar o traducir el error en un mensaje..

on error go to err
set rs= dt.openrecordset("select....")
err:
if error = true then
msgbox("xxxxxxxxxxxxxxxxx")
end if

grcias

Karl... utiliza el objeto err que te proporciona Visual Basic.

Ejemplo:

On Error GoTo ManejoError

set rs = dt.openrecordset("select.....")

ManejoError:

If Err.Number <> 0 Then
MsgBox Err.Description
End If


La propiedad Number del objeto Err te dal el número de error, y la propiedad Description te devuelve un mensaje con un pequeño detalle del error ocurrido.

Saludos!!!