ник: час
Он же хочет кнопкой, автоматом импорт таблиц. 
Значит надо либо создать таблицу со списком импортируемых таблиц и кодом их перебрасывать.
или перебрасывать все подряд , проверяя не системная-ли таблица ...
Public Function Import_Tablic(put_K_baze As String, Ima_tabl As String, NewNamrTablici As String)
'*************************************************************************
If Nalichie_Tablici_v_DRUGOY_BAZE(put_K_baze, Ima_tabl) = False Then Exit Function
Udalit_TABLICU (Ima_tabl)
DoCmd.TransferDatabase acImport, "Microsoft Access", put_K_baze, acTable, Ima_tabl, NewNamrTablici