更新当前用户的密码，关键代码如下：
  with DM.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Update Login Set Password =:a Where UserName =:x');
    Parameters.ParamByName('x').Value := QUserName;
    Parameters.ParamByName('a').Value := Trim(EditNew.Text);
    ExecSQL;
    ShowMessage('密码设置成功！');
  end;
其中，QUserName是系统用户的全局变量。
在运行时出现“Update语句的语法错误”的提示，请高手解答一下，不胜感激。
环境：WinXP_SP2，Delphi 7.0，数据库是Access2003。

[[it] 本帖最后由 rosege 于 2008-11-25 08:32 编辑 [/it]]

with DM.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select* from Login Where UserName ='+''''+trim(QUserName)+'''');
    open;
    edit;
    Parameters.ParamByName('密码字段').Value := Trim(EditNew.Text);
    post;
    end;
这样试试看