ADODBとOracleでxas（...）を使用できないのはなぜですか？

確かに、ADODBは、クエリステートメントが実際にはselectで始まることを期待しているようです。 したがって、この問題の回避策は、ステートメントをselect * from ( .... )で囲むことです。 そのように：

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