全く同レイアウトのテーブルAA,BBのレコードをAA→BBに移す時に
↓以外の書き方ありますか?レコード中の全ての項目を下記の様に
代入するように書かないと駄目なのでしょうか?

With rs_bbb
   .AddNew
   .Fields("field1").Value = rs_aaa.Fields("field1").Value
   .Fields("field2").Value = rs_aaa.Fields("field2").Value
   .Fields("field3").Value = rs_aaa.Fields("field3").Value
End With