エクセルでアクセスのクエリを更新したい
お世話になります。
アクセスのデータをエクセルで編集する方法を勉強しています。
アクセスのクエリをエクセルで呼び出すところまで成功しました。
ところが、クエリを読み込んだ後、アクセスのクエリに戻すところで煮詰まっています。
**************************************************************
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
補足
すいません、実際のコードはこれではないです。 コピーできないので手打ちしました。 実際はupdate では件数取得できているので コードミスではないです