Ok, có vẻ như ADODB thực sự mong đợi một câu lệnh truy vấn thực sự bắt đầu bằng select
Do đó, cách khắc phục sự cố có thể là đặt câu lệnh trong select * from ( .... )
như vậy:
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