VBAのSQL：コンパイルエラー、関数または変数が必要でした

Question

私は以下のコードを持っていますが、動作していません。それは私にエラーを与える：コンパイルエラー、関数または変数が必要です。

エラーはDatabase.Executeメソッドにあると思いますが、まだ解決策がありません。

Sub ChavesMontante() 

Dim dbschaves As Database 

Dim rschaves As DAO.Recordset 

Dim tipodechave As String 

Dim SQLCMD As String 

Dim chave As String 

Set dbschaves = CurrentDb 

chave = "BED20777" 

SQLCMD = 

"(SELECT us.instalacao, ch.bloco, us.tipounidade " & _ 
"FROM (SELECT useccionadora, bloco " & _ 
"FROM sgdprd.redeprimaria rp " & _ 
"WHERE rp.useccionadora IS NOT NULL " & _ 
"CONNECT BY rp.nox = PRIOR rp.fontex AND rp.noy = PRIOR rp.fontey " & _ 
"START WITH rp.useccionadora = '" & chave & "') ch " & _ 
"INNER JOIN sgdprd.useccionadora us ON ch.useccionadora= us.instalacao) " 

Debug.Print SQLCMD 

Set rschaves = dbschaves.Execute(SQLCMD) 


End Sub 

Answer 1

Executeは、アクションSQL文（UPDATE、DELETE、INSERT）に使用され、Recordsetオブジェクトは設定されません。

次のように変更してみてください。SQL文全体を囲む外側の括弧を削除し、また

Dim dbschaves As DAO.Database 
... 
Set rschaves = dbschaves.OpenRecordset(SQLCMD) 

を。私は最初に接続してから見たことがありません。クエリはAccessで開きますか？