このスクリプトをコピペすればテーブルをレコードセット化出来る。

[vb]Function dbRSopen()

Dim cn As ADODB.Connection
Set cn = Application.CurrentProject.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "対象テーブル", cn, adOpenKeyset, adLockOptimistic

Do While rs.EOF = False

rs![変更したい項目] = DLookup("新しい値", "元テーブル", "ID=" & rs![ID])
rs.Update

rs.MoveNext
Loop

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Function
[/vb]