Quiero capturar un error ocurrido en una Sub perteneciente a MisComponentes.vb

Si ocurre un error en la actualizacion de la base de datos,  quiero tomar en mi pagina ese error y mostrarlo o administrarlo.

Gracias. Raul Lujan



Shared Sub ejecuta(ByVal StrSql As String, ByVal StrCnn As String)

Dim Cnn As OleDbConnection

Dim Cmd As OleDbCommand

Try

Cnn = New OleDbConnection(StrCnn) : Cnn.Open()

Cmd = New OleDbCommand(StrSql, Cnn)

Cmd.ExecuteNonQuery()

Catch e As OleDbException

???????????????????????????????????  Como hago para pasar e.message a la pagina que llamó este sub

Finally

Cmd.Dispose() : Cmd = Nothing

Cnn.Close() : Cnn = Nothing

End Try

End Sub