ник: kot_k_k
если Дрюнин вариант не проходит
попробуй
Currentdb.Execute "insert into table1 select * from table2 where t_year & Clng(String(2-Len(t_month)," & chr(34) & "0" & chr(34) & ")) >=200901"
Snipe прав там нужно запятую ставить, у меня ругнулось на ошибку синтаксиса, как только поменял на зпт ругается на отсутсвиет таблы - знач правильно.