oo4o - Oracleエラー(SQLコード)を取得する

Private Sub CommandButton1_Click()

    Dim OraSession As Object
    Dim OraDatabase As Object
    Dim OraDynaset As Object

    On Error Resume Next

    OraSession = CreateObject("OracleInProcServer.XOraSession")
    OraDatabase = OraSession.OpenDatabase("sampledb", "scott/tiger", 0)
    OraDynaset = OraDatabase.CreateDynaset("select * from XXXXX", 0)

    Console.WriteLine(OraDatabase.LastServerErr())
    Console.WriteLine(OraDatabase.LastServerErrText())

End Sub

942
ORA-00942: table or view does not exist