С праздником Вас / Insert into с увеличением строк - VB

Формулировка задачи:

Доброго Вам врем ени суток
Уважаемые господа

поздравляю Вас с праздником весны Новруз Байрам
желаю

Вам здоровья удачи и успехов делах

при наличии времени прошу Вас помочь
данный пример позволяет мне переносить информацию из одной базы в другую
Set DB = DAO.OpenDatabase(App.Path & "\test.MDB")
sSQL = "Insert Into tab2 select * From tab1"
DB.Execute sSQL
база tab1 содержит три столбца / две строки со
значениями
111
112
мне необхадимо

первый вариант

чтобы при переносе в другую базу было получено
111
111
112
112
т.е. все строки добавились два раза

второй вариант

чтобы при переносе в другую базу было получено
111
111
112
т.е во втором варианте я сам контролирую какую строку хочу увеличить в несколько раз

С Уважением и Благодарностью
Намик

Решение задачи: «С праздником Вас / Insert into с увеличением строк»

textual
                            Листинг программы 
                        

                            <font color="blue">Set</font> DB = DAO.OpenDatabase(App.Path & <font color="teal">"\test.MDB"</font>)
sSQL = <font color="teal">"Insert Into tab2 select * From tab1"</font>
DB.Execute sSQL
DB.Execute sSQL

                        