function lasterror => get the message

Hi everybody,

First, sorry if I make a lot of mistakes but I'm a poor french who is trying to write in english.

I use the following VBA code to access SAP internal tables from Microsoft Access.

Function RFC_READ_TABLE()

Dim R3 As Object

Set R3 = CreateObject("SAP.Functions")

R3.Connection.System = "system"

R3.Connection.client = "100"

R3.Connection.User = "my user ID"

R3.Connection.Password = "password"

R3.Connection.language = "FR"

If R3.Connection.Logon(0, True) <> True Then

R3.Connection.LastError

Exit Function

End If

The instruction "R3.Connection.LastError" returns a message box with te reason of the failure. But what I need is the String contains in this message box or a function which could return an error code.

Does someone can Help me ?

Thanks