RecordSetを使って、片方のテーブルにあるレコードを
もう片方のテーブルにひとつずつ追加していくコードを作ろうとしています。

　Rs(0).MoveFirst
　Rs(1).MoveFirst

　Do Until Rs(0).EOF

　　　Rs(0).AddNew

　　　　Rs(0)!ID = Rs(1)!ID
　　　　Rs(0)!Name = Rs(1)!Name
　　　　Rs(0)!NameKana = Rs(1)!NameKana
　　　　Rs(0)!Tel = Rs(1)!Tel
　　　　　・
　　　　　・
　　　　　・
　　　　Rs(0)!Note = Rs(1)!Note

　　　Rs(0).Update

　　　Rs(0).MoveNext
　　　Rs(1).MoveNext

　Loop

Rs(0).AddNewとRs(0).Updateの間の
フィールドをひとつずつ指定する部分を
何とかして省略出来ないものでしょうか？
（Rs(0)とRs(1)のフィールド等は全て同じです）

どなたかご存知でしたら御教授下さい。