更新も削除と同じで、1件ずつの処理となる。
Sub 一覧データを更新()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqldb As String
Dim res As Integer
Dim i As Long
db.Open "provider=microsoft.jet.oledb.4.0;" _
& "data source=sien.mdb"
sqldb="select * from koumoku where koumoku_bangou='" & Range("a" & i).Value & "'"
rs.Open sqldb, db, adOpenStatic, adLockPessimistic
i=6
' rs!koumoku_bangou = Range("a" & i).Value
rs!koumoku_na = Range("b" & i).Value
rs!kigen = Range("c" & i).Value
rs!tantou_busyo = Range("d" & i).Value
rs!tantou_sya = Range("e" & i).Value
rs!memo = Range("f" & i).Value
rs!flg = Range("g" & i).Value
rs.Update
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub