关于用TQuery更新记录的问题

初学delphi,现用Tquery更新记录，代码如下：
begin
dbmodule.GPRS_Query.Close;
dbModule.GPRS_Query.SQL.Clear;
dbmodule.GPRS_Query.SQL.Add('select * from GprsClient Where ID='+IntToStr(GPRSID));
dbmodule.GPRS_Query.Open;
if dbmodule.GPRS_Query.Eof=False then//如果记录不为空
begin
if not (dbmodule.GPRS_Query.State in [dsInsert, dsEdit]) then
dbmodule.GPRS_Query.Edit;//将数据集改为编辑状态
dbmodule.GPRS_Query.FieldValues['GPRSName']:=GPRSName;
dbmodule.GPRS_Query.FieldValues['PhoneNumber']:=GPRSNUmber;
dbmodule.GPRS_Query.FieldValues['GPRSAddr']:=GPRSAddr;
dbmodule.GPRS_Query.FieldValues['GPRSDescript']:=GPRSDescript;
dbmodule.GPRS_Query.Post;
end;
dbmodule.GPRS_Query.Close;
end;
现在：代码可以正常执行，但无法更新记录，请各位大侠赐教!