почему конец запроса в VBA выполняется раньше чем начало

[demox_86]

Народ помогите пожалуйта никак не могу допереть почемуу меня макрос выполняется раньше запросов? (програмирую первый раз, самоучка я )

Вот собственно запрос:

Private Sub Form_Load()

CurrentDb.Execute "INSERT INTO 1 ( [№ Запроса], [№ Заявки SD], [Дата создания заявки], Описание, [Наименование програмного модуля], [Сроки решения], [Тип запроса (ошибка, замечание, предложение)] ) " & _
" SELECT [2].[№ Запроса], [2].[№ Заявки SD], [2].[Дата создания заявки], [2].Описание, [2].[Наименование програмного модуля], [2].[Сроки решения], [2].[Тип запроса (ошибка, замечание, предложение)] " & _
" FROM 1 RIGHT JOIN 2 ON [1].[№ Заявки SD] = [2].[№ Заявки SD] " & _
" WHERE [1].[№ Заявки SD] <> [2].[№ Заявки SD] Or [1].[№ Заявки SD] Is Null ", dbFailOnError
CurrentDb.Execute "DELETE [3].[№ Запроса], [3].[№ Заявки SD], [3].[Дата создания заявки], [3].Описание, [3].[Наименование програмного модуля], [3].[Сроки решения], [3].[Тип запроса (ошибка, замечание, предложение)], [3].RCT_NAME,[3].PER_NAME FROM 3 WHERE [3].RCT_NAME IS NOT NULL", dbFailOnError
CurrentDb.Execute "INSERT INTO 3 ( [№ Запроса], [№ Заявки SD], [Дата создания заявки], Описание, [Наименование програмного модуля], [Сроки решения], [Тип запроса (ошибка, замечание, предложение)], RCT_NAME, PER_NAME ) " & _
"SELECT [1].[№ Запроса], [1].[№ Заявки SD], [1].[Дата создания заявки], [1].Описание, [1].[Наименование програмного модуля], [1].[Сроки решения], [1].[Тип запроса (ошибка, замечание, предложение)], [status_SD].[RCT_NAME], [status_SD].[PER_NAME]" & _
"FROM 3 RIGHT JOIN (status_SD RIGHT JOIN 1 ON [status_SD].[SER_ID] = [1].[№ Заявки SD]) ON [3].[№ Заявки SD] = status_SD.SER_ID" & _
" WHERE ((([1].[№ Заявки SD])<>[3].[№ Заявки SD])) Or ((([3].[№ Заявки SD]) Is Null))", dbFailOnError
CurrentDb.Execute "DELETE [3].[№ Запроса], [3].[№ Заявки SD], [3].[Дата создания заявки], [3].Описание, [3].[Наименование програмного модуля], [3].[Сроки решения], [3].[Тип запроса (ошибка, замечание, предложение)], [3].RCT_NAME, [3].per_name " & _
"FROM 3 WHERE [3].RCT_NAME='Закрыта'", dbFailOnError

Me.Requery

DoCmd.RunMacro "Макрос1"

End Sub