Ошибка при добавление данных в таблицу Access SQL

[le7o]

При попытке добавления записи в таблицу Access через форму на Delphi выскакивает ошибка: "Ошибка синтаксиса в INSERT INTO"

procedure TFormEditKp.InsertKp;
var
	query : TADOQuery ;
begin
	query := TADOQuery.Create(nil) ;
	query.Connection := dm.ConnBD ;
query.Active := false ;
query.sql.clear;
	query.SQL.add('INSERT INTO KP (cl_id, dat, obj_id, Plosh, etag, KolKom, Raion_id, str_id, Nom_dom,') ;
	query.SQL.add(' summa, sotr_id');
	query.SQL.add('VALUES (:p_clID, :p_Dat, :p_objID, :p_Plosh, :p_etag, :p_KolKom, :p_rID, :p_sID, ');
	query.SQL.add(':p_NDom, :p_Sum, :p_SotrID');
//********************************** заполнение полей ***************************//
	query.Parameters.ParamByName('p_clID').Value := Integer(sComboBox1.Items.Objects[sComboBox1.ItemIndex]) ; 
	query.Parameters.ParamByName('p_Dat').Value := Date ; //Устанавливаем текущую дату
	query.Parameters.ParamByName('p_objID').Value := Integer(sComboBox3.Items.Objects[sComboBox3.ItemIndex]) ;
	query.Parameters.ParamByName('p_Plosh').Value := sEdit3.Text ;
	query.Parameters.ParamByName('p_etag').Value := sEdit2.Text ;
	query.Parameters.ParamByName('p_KolKom').Value := sEdit4.Text ;
	query.Parameters.ParamByName('p_rID').Value := Integer(sComboBox4.Items.Objects[sComboBox4.ItemIndex]) ;
	query.Parameters.ParamByName('p_sID').Value := Integer(sComboBox5.Items.Objects[sComboBox5.ItemIndex]) ;
	query.Parameters.ParamByName('p_NDom').Value := sEdit1.Text ;
	query.Parameters.ParamByName('p_Sum').Value := sEdit5.Text ;
	query.Parameters.ParamByName('p_SotrID').Value := Integer(sComboBox2.Items.Objects[sComboBox2.ItemIndex]) ;
query.ExecSQL ;
query.Free ;
end;

Подобным кодом уже пользовался в связке с MS SQL Server 2000 все работало как часы...

[le7o]

sComboBox'ы работают правильно, я уже проверял все из значения...
ниже показано как они заполняются:

procedure TFormEditKp.FullList;
var
	query : TADOQuery ;
begin
	query := TADOQuery.Create(nil) ;
	query.Connection := dm.ConnBD ;

	sLabel13.Caption := DateToStr(Date) ;

//************************************* КЛИЕНТ **********************************//
Query.Close;
	query.SQL.Text := 'SELECT id_kl, FIO FROM KL' ;
Query.Open;
	Query.First;
		while not Query.Eof do
			begin
				sComboBox1.Items.AddObject(Query.FieldByName('FIO').AsString, Pointer(Query.FieldByName('id_kl').AsInteger));
				Query.Next;
			end;

//************************************ Район ************************************//
sComboBox2.Items.Clear ;
Query.Close;
	Query.SQL.Text := 'SELECT id_r, rNAME FROM raion ORDER BY id_r';
Query.Open;
	Query.First;
		while not Query.Eof do
			begin
				sComboBox4.Items.AddObject(Query.FieldByName('rName').AsString, Pointer(Query.FieldByName('id_r').AsInteger));
				Query.Next;
			end;

[Аватар]

В обоих списках нет закрывающей скобки

[le7o]

Сообщение от Аватар

В обоих списках нет закрывающей скобки

Спасибо, вот что делает не внимательность )))))