sql - CreateObject および Common Table Expression エラー

Question

この「Common Table Expression」Sqlスクリプトを取得しましたが、完全に機能しますが、コード内でserver.createobjectを使用してSQLスクリプトを適用すると、次のエラーが発生します。

Microsoft VBScript ランタイム エラー '800a000d' タイプの不一致: '[文字列: "WITH CTE AS (SELECT "]'

これは私のコードです:

Set objFrConn = Server.CreateObject("ADODB.Command") 
objFrConn.ActiveConnection = db
objFrConn.CommandText = "WITH CTE AS (SELECT...some code...) " & _
"SELECT * FROM CTE WHERE RN = 1 ORDER BY Date"
objFrConn.CommandType = 1
set rsListProduct=objFrConn.execute