cnSave = "Odbc;
                Provider=MSDAORA;
                Driver={Oracle in OraDb10g_home1};
                UID =myUser;
                PWD=myPassword;
                DBQ=myDatabase;
                QTO=F;
                Server=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=xx.xx.xx)(PORT=1521))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=xxxxxx)))"
Set AdoSave=WScript.CreateObject("ADODB.Connection") 
AdoSave.ConnectionString=cnSave
AdoSave.ConnectionTimeout=0 
AdoSave.CommandTimeout=0
AdoSave.Open