05-15-2008, 06:06 PM
ok, i have found the solution.. thx howewer :-)
Code:
Dim rs, conn, query, customerid
set conn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
conn.ConnectionString = "Provider=OraOLEDB.Oracle; Data Source=<SOURCE>; User ID=<USER>; Password=<PWD>; PLSQLRSet=1;"
conn.open
query="select 'ciao' as pippo from dual"
Set rs= conn1.Execute(query)
var = rs.fields("pippo")
rs.close
set rs=nothing
conn.close
set conn=nothing
msgbox var