レコードの変更を行う

Fieldsプロパティを使用する

Sub レコード内容変更2()
'Fieldsプロパティを使用する
Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim FileName As String, i As Integer

FileName = ThisWorkbook.Path & "\mdb\2-sampleDB.mdb"
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName
myRS.Open "アルバイト", myCon, adOpenDynamic, adLockPessimistic

'任意のフィールドの値を変更 (Valueは省略可能)
myRS.Fields("時給").Value = 1200
myRS.Fields(4).Value = "キッチン"
myRS.Fields("勤務時間") = 50
myRS.Fields(6) = 0

'変更を保存
myRS.Update

myRS.Close: Set myRS = Nothing
myCon.Close: Set myCon = Nothing

End Sub