Here is my code:



 Set objConnection = CreateObject("ADODB.Connection")
    Set objRecordSet = CreateObject("ADODB.Recordset")
    objConnection.open "Driver=oracle in oracle-odbc;" & "Data
    Source=ORADSN;" & "Server=192.168.1.157;" & "User Id=system;" &
    "Password=sa123"
    'objConnection.open "provider=MSDAORA;Server=localhost;User Id=u2;
    Password=u2; Database=IBL_AUTO;Trusted_Connection=Yes"
    sqlQuery2 = "select 23+2 from dual;"
    objRecordSet.open sqlQuery2,objConnection
    value2 = objRecordSet.fields.item(0)
    Msgbox(value2)