ник: osmor
вместо всего кода который написан у Вас напишите:
Currentdb.Execute "INSERT INTO Таблица2 ( 1, 2 ) SELECT Таблица1.[1], Таблица1.[2] FROM Таблица1"
ВНИМАНИЕ!!! СКОЛЬКО РАЗ ЭТОТ КОД ЗАПУСТИТЕ, СТОЛЬКО РАЗ ВСЕ ДАННЫЕ ИЗ ТАБЛИЦА1 добавятся в ТАБЛИЦА2