ローカルファイル(ADTG)で作業する

保存しておいたレコードセットを開いて作業を行う

Sub レコードセットを保存2()
'保存ファイルをローカルで編集
Dim myRS As New ADODB.Recordset
Dim FileName As String, ADTGName As String

'読み込み先のパスとファイル名
ADTGName = ThisWorkbook.Path & "\adtg\伝票一覧.adtg"

'ファイルを開く
myRS.Open ADTGName

'先頭レコードへ移動しておく
myRS.MoveFirst

'受注金額を更新
Do Until myRS.EOF
  myRS!受注金額 = 10000
  myRS.MoveNext
Loop

With myRS
  .MoveFirst                     '先頭レコードへ移動しておく
  .Update                        '変更を反映
  .Save ADTGName, adPersistADTG  '再度ローカルに保存
End With

myRS.Close: Set myRS = Nothing

End Sub