Ok, es sieht wirklich so aus, als ob ADODB erwartet, dass eine Abfrageanweisung tatsächlich mit select beginnt .Daher könnte eine Problemumgehung darin bestehen, die Anweisung in einen select * from ( .... ) einzuschließen etwa so:
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
