高手帮忙看一下 以下报错‘系统出错。','提示',0+64’找不到原因

Question

先谢过了~~~
以下是权限管理的UPDATEprocedure TForm4.BitBtn5Click(Sender: TObject);
begin
  with dm.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from userinfoluhq where a0190= :a');
    Parameters.ParamByName('a').Value  := Trim(Edit1.Text);
    Open;
  end;
  If dm.ADOQuery1.RecordCount >0 then
  begin
    Application.MessageBox('操作员已经存在，请重新输入。','提示',0+64);
    BitBtn4.OnClick(Sender);
    Exit;
  end;
  Try
  with dm.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Insert  userinfoluhq Values(:a , :b , :c , :d ,Default)');
    Parameters.ParamByName('a').Value := Trim(Edit1.Text);
    Parameters.ParamByName('b').Value := Trim(Edit2.Text);
    Parameters.ParamByName('c').Value := Trim(Edit3.Text);
    if Trim(ComboBox1.Text) ='系统管理员' then
      Parameters.ParamByName('d').Value := '1'
    else
      Parameters.ParamByName('d').Value := '2';
    ExecSQL;
  end;
    Application.MessageBox(Pchar('添加成功，操作员密码为“'+ Trim(Edit3.Text)+'”'),'提示',0+64);
    BitBtn4.OnClick(Sender);
  Except
  begin
    Application.MessageBox('系统出错。','提示',0+64);
    Close;
  end;
  end;
  with dm.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from userinfoluhq' );
    Open;
  end;
end;

Answer 1

Insert     userinfoluhq   Values //这应该有空格(:a   ,   :b   ,   :c   ,   :d   ,Default)

Answer 2

不知道你采用的什么数据库，INSERT语句应该有INTO吧，
insert into table1 values(...)