Dim objConnection, objRecordset Set objConnection = CreateObject("ADODB.Connection") strConnString = "Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=S ERVERNAME)(PORT=1521))(CONNECT _DATA=(SERVICE_NAME=TEST)));uid=username;pwd=passw ord;" objConnection.open strConnString Set objRecordset = CreateObject("ADODB.Recordset") Set objRecordset = objConnection.Execute ("SELECT enabled_ind FROM DB_RELEASE") objConnection.Close Set objRecordset = Nothing Set objConnection = Nothing read more
