Добавление записи в таблицу через AdoQuery

[natt23]

Добрый день. При добавлении записи в таблицу, возникла следующая проблема: добавляется 2 одинаковые записи, но в одной некоторые поля пусты, а в другой все заполнено. Текст кода:

procedure TForm2.Button1Click(Sender: TObject);
begin

DataModule1.ADOQuery2.Active:=False ;
DataModule1.ADOQuery2.SQL.Clear;
DataModule1.ADOQuery2.SQL.Add('inse rt into Data_stud (Фамилия,Имя,Отчество,');
DataModule1.ADOQuery2.SQL.Add('Адре с_проживания,Адрес_по_прописке,');
DataModule1.ADOQuery2.SQL.Add('Дата _рождения,Паспортные_данные,Серия_м ед_полиса,');
DataModule1.ADOQuery2.SQL.Add('Номе р_мед_полиса,Телефон,Гражданство,ИН Н,');
DataModule1.ADOQuery2.SQL.Add('Пол, Код_группы,Дата_пост,Льготы,Зачетна я_книжка)');
DataModule1.ADOQuery2.SQL.Add(' Values ("'+dbEdit1.Text+'","'+dbEdit2.Text +'",');
DataModule1.ADOQuery2.SQL.Add('"'+d bEdit3.Text+'","'+dbEdit4.Text+'"," '+dbEdit5.Text+'",');
DataModule1.ADOQuery2.SQL.Add('"'+D ateToStr(DateTimePicker1.Date)+'"," '+DBMemo1.Text+'",');
DataModule1.ADOQuery2.SQL.Add('"'+d bEdit7.Text+'","'+dbEdit8.Text+'"," '+dbEdit9.Text+'",');
DataModule1.ADOQuery2.SQL.Add('"'+d bEdit10.Text+'","'+dbEdit11.Text+'" ,"'+form2.ComboBox1.text+'","'+dbEd it6.Text+'",');
DataModule1.ADOQuery2.SQL.Add('"'+D ateToStr(DateTimePicker2.Date)+'"," '+dbMemo2.Text+'","'+dbEdit13.Text+ '")');

DataModule1.ADOQuery2.ExecSQL;
end;

В чем ошибка? Заранее спасибо!

[eval]

Ужас.
какой запрос результирующий?

[Аватар]

При добавлении записи в таблицу, возникла следующая проблема: добавляется 2 одинаковые записи, но в одной некоторые поля пусты, а в другой все заполнено.

Проблема в том, что несколько раз вставляете запись. Ищите в остальном коде проги