Option Explicit

Sub Main()
    Dim ses
    Dim db
    Dim rs
    Set ses = CreateObject("OracleInProcServer.XOraSession")
    Set db = ses.OpenDatabase( "ORCL", "scott/tiger", 0 )
    Set rs = db.CreateDynaset( "SELECT 'Hello, oo4o World!' AS Message FROM DUAL", 4)
    While NOT rs.EOF
        Debug.Print rs(0).Name
        Debug.Print "------------------"
        Debug.Print rs(0).Value
        rs.MoveNext
   Wend
End Sub