Не выполняется запрос на добавление в ACCESS

[Rin]

Здравствуйте! Проблема такова. Есть 2 проекта с одинаковыми модулями на добавление, но разными БД MS Access. Таблицы в Access идентичны по типам. Так вот, в одном проекте в таблицу все прекрасно добавляется, а в другом - нет.
Вылетает ошибка "Ошибка синтаксиса в инструкции INSERT INTO".

Поля в таблице "user"
USER -текстовый формат
PASS -текстовый формат
ACCESS - логический формат

Вот код:

procedure TForm3.Button1Click(Sender: TObject);
var s1:string;
    i:integer;
begin
  Form1.T_usr_pass.first;
  while not Form1.T_usr_pass.EOF do
  begin
    s1:=Form1.T_usr_pass.FieldByName('user').value;
    if (Edit1.Text=s1) then
    begin
      Edit1.SetFocus;
      ShowMessage('Такой пользователь уже существует');
      exit;
    end;
    Form1.T_usr_pass.next;
  end;
  ins_del_query.SQL.Clear;
  ins_del_query.SQL.Text:='INSERT INTO USER_PASS (USER,'+
  'PASS,ACCESS) VALUES ("'+Edit1.Text+'","'+Edit2.Text+'",'+
  BoolToStr(CheckBox1.checked)+');';
  ins_del_query.ExecSQL;
end;

Файл БД сохранен в формате Access 2003. Монопольный режим убран, разрешение на чтение и запись стоят. Что ещё может быть не так?
Спасибо за внимание, и всем ответившим отдельное спасибо.

[Serge_Bliznykov]

значит, таблицы не такие уж одинаковые...
как вариант, навскидку, проверьте наличие ключевого поля и его свойств (похоже, что там, где запрос работает, ID имеет autoincrement == счётчик)

[eval]

тут больше удивляет, почему

в одном проекте в таблицу все прекрасно добавляется

[Аватар]

Начать с того, что как минимум слово user зарезервировано в ACCESS. Для этого квадратные скобки существуют

ADD

Еще BoolToStr(CheckBox1.checked) внушает подозрение. ACCESS съест '-1' или '0'?
Может BoolToStr(CheckBox1.checked,True)?

[Rin]

Начать с того, что как минимум слово user зарезервировано в ACCESS.

значит, таблицы не такие уж одинаковые...

Именно в этом была проблема. В старом проекте было поле "usr", а в новом "user".
А BoolToStr Access съедает нормально.
Спасибо Вам за ответы.