エクセルでアクセスのクエリを更新したい

質問

お世話になります。
アクセスのデータをエクセルで編集する方法を勉強しています。
アクセスのクエリをエクセルで呼び出すところまで成功しました。

ところが、クエリを読み込んだ後、アクセスのクエリに戻すところで煮詰まっています。
**************************************************************
Sub btn更新_Click()
Dim DelCmd As String
Dim z As Long
Dim i As Long
Dim cn As Connection
Dim rs As Recordset

Set cn = New Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Excel\Sample.mdb"
cn.Open

DelCmd = "DELETE * FROM クエリＡ"
cn.Execute DelCmd

If Range("A1").Value = "" Then
z = 0
Else
z = Range("A1").End(xlDown).Row
End If

Set rs = New Recordset
rs.Open "クエリＡ", cn, adOpenKeyset, adLockOptimistic

For i = 1 To z
rs.AddNew
rs!番号 = Range("A" & i).Value
rs!日付 = Range("B" & i).Value
rs!担当者 = Range("C" & i).Value
rs!顧客名 = Range("D" & i).Value
rs!内容 = Range("E" & i).Value
rs.Update
Next
MsgBox "更新しました"

'後処理
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
***********************************************************
という構文を作ってみたのですが、
rs.Open "クエリＡ", cn, adOpenKeyset, adLockOptimisticのところで
ストップし、SQLステートメントがただしくありません。
'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、または'UPDATE'を使用してください。というエラーになります。
持っている書籍にはこのことについて何も記述が無いので、ネット検索しながら独学で解決方法を探しているのですが、めぼしい記述に出会えず、困っています。
解決方法をご存知の方、また参考になる書籍・サイトをご存知の方、お力をお貸しください。

OS：windowsXP
Excel:2003
Access:2003

回答No.2

m3_maki · ベストアンサー

> rs.Open "クエリＡ", cn, adOpenKeyset, adLockOptimistic
とりあえず
rs.Open "クエリＡ", cn, adOpenKeyset, adLockOptimistic, adCmdTable
としてみてください。

お礼

ご回答ありがとうございます。
無事動作確認できました。

回答No.1

hrkn-p

横道にそれますが、Accessをお持ちでしたら、アクセスでＤＢを扱ったほうが簡単です。
ＶＢＡの勉強としても、アクセス上でＶＢＡをやるか、ＶＢでやったほうが、実益があると思うのですが…。

お礼

ご回答ありがとうございます。