Нужно добавить строки путем INSERT INTO из таблицы1 и + добавить с соответсвующей записи дату добавления.

     CurrentProject.Connection.Execute "INSERT INTO ФИОИстория (Имя, Отчество, Фамилия, Код2) SELECT Имя, Отчество, Фамилия, Код FROM ФИО WHERE Код = " & Код & ""
     CurrentProject.Connection.Execute "INSERT INTO ФИОИстория (Дата) VALUES (Now) SELECT Код FROM ФИО WHERE ФИО = " & Код & ""

http://www.sql.ru/forum/1103358/kak-sochitat-v-zaprose-insert-into-select-i-values