'Accessのレコードを更新する
Sub Test3()
Dim DBpath As String 'Accessファイルのフルパス
Dim adoCn As Object 'Accessへ接続用のオブジェクト
Dim strSQL As String 'SQL文'Accessファイルへ接続する
Set adoCn = CreateObject("ADODB.Connection") 'Accessへ接続用のオブジェクトを作成
DBpath = ThisWorkbook.Path & "\Database.accdb" '接続するAccessファイルのフルパス
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBpath & ";" 'Accessファイル(2007~)を開く'adoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath & ";" 'Access(~2003)ファイルを開く'レコード更新のSQL文
strSQL = "UPDATE DB SET 身長='123' WHERE ID=32"
'---変数を使う場合---
Dim ID, CurTall
ID = 36
CurTall = 123
'レコード更新のSQL文
strSQL = "UPDATE DB SET 身長='" & CurTall & "' WHERE ID=" & ID
'---------------------'SQLの実行(レコードの更新・追加・削除の場合)
adoCn.Execute strSQL 'SQLを実行'後処理
adoCn.Close 'Accessへの接続を解除する
Set adoCn = Nothing 'Accessへの接続用のオブジェクトを開放
End Sub