Ok, naprawdę wygląda na to, że ADODB oczekuje, że instrukcja zapytania faktycznie zaczyna się od select
.Dlatego obejście tego problemu może polegać na umieszczeniu instrukcji w select * from ( .... )
tak:
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