Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle}; Server=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=***)(PORT=1521))(CONNECT_DATA=(SID=***))); Uid=***;Pwd=***;"
Dim oCon: Set oCon = CreateObject("ADODB.Connection")
Dim oRs: Set oRs = CreateObject("ADODB.Recordset")
oCon.Open strCon

strSQL = "SELECT WCEL1_O.CO_GID , WCEL1_O.CO_DN  , WCEL1_O.CO_STATE  "
strSQL = strSQL & " FROM "
strSQL = strSQL & " CTP_COMMON_OBJECTS WCEL1_O "
strSQL = strSQL & " WHERE WCEL1_O.CO_OC_ID = 1963 "
strSQL = strSQL & " AND  WCEL1_O.CO_DN LIKE 'PLMN-PLMN/RNC-961/WBTS-56/W%' ESCAPE '\' "

Debug.Print strSQL
Set oRs = oCon.Execute("strSQL") ' на этом месте выскакивает ошибка
While Not oRs.EOF
    Debug.Print oRs.Fields("CO_DN").Value
    oRs.MoveNext
Wend
oCon.Close
Set oRs = Nothing
Set oCon = Nothing