Ok, parece que o ADODB espera que uma instrução de consulta comece com
select . Portanto, uma solução para o problema pode ser incluir a instrução em um select * from ( .... ) igual a:Dim sql As String
sql = "with w as (select 'foo' x from dual) select x from w"
' enclose the statement:
sql = "select * from (" & sql & ")"
rs.Open sql, cn
