Запрос на добавление - VB

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

Простите, что немного не по теме, не охота плодить однотипные темы. Есть таблицы Производители и МоделиУстройств, между ними отношение один ко многим по полю Производитель(код). Есть форма на которой 2 Поля со списком, Производитель и Модель соответственно. Есть обработка события Отсутствует в списке для Поля со списком Модель следующего содержания:

Dim sql As String
sql = "insert into МоделиУстройств (Модель, Производитель) values ( '" & Me!Модель.Text & "', '" & Me!Производитель.Text & "')"
CurrentDb.Execute sql
Response = acDataErrAdded

Нужно, чтоб при установленном поле Производитель, по событию Отсутствует в списке для поля Модель, в таблицу МоделиУстройств вставлялась строка с данными, внесенными в соответствующие поля. По какой-то причине обработчик не работает. Причем, если я пушу строку вида

sql = "insert into МоделиУстройств (Модель) values ( '" & Me!Модель.Text & "')"

Данные нормально добавляются, подскажите в чем ошибка у меня?

Решение задачи: «Запрос на добавление»

textual
                            Листинг программы 
                        
                            sql = "insert into МоделиУстройств (Модель, Производитель) " _
& "values ( '" & NewData & "', '" & Me!Производитель & "')