Ok, sembra davvero che ADODB si aspetti che un'istruzione di query inizi effettivamente con select .Pertanto, una soluzione al problema potrebbe essere quella di racchiudere l'istruzione in un select * from ( .... ) così:
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
