sql语句更新怎么这么慢？？？？

用sql语句更新数据，速度很慢，更新一条记录约一分钟，客户对我很不满，郁闷！！ 思路是：1.先找出符合客户条件的记录
         2.用update更新
         3.保证需修改的记录就一条
         4. sql5.connection=adoconnection1；语句如下：========================================================
dm.sqlx5.SQL.Clear;
dm.sqlx5.SQL.Add('update jsk ');
dm.sqlx5.SQL.Add('set bm=:hh, ren=:gg,yh=:yh,fs=:fs,je=:je,bh=:bh');  
dm.sqlx5.SQL.Add('where id=:hh1  ');
dm.sqlx5.Parameters.ParamByName('hh1').Value :=trim(hh);
dm.sqlx5.Parameters.ParamByName('gg').Value :=trim(c3.Text);
dm.sqlx5.Parameters.ParamByName('hh').Value :=trim(edit2.Text);
dm.sqlx5.Parameters.ParamByName('fs').Value :=trim(c2.Text);
dm.sqlx5.Parameters.ParamByName('yh').Value :=strtoint(edit20.Text);
dm.sqlx5.Parameters.ParamByName('bh').Value :=edit22.Text;
dm.sqlx5.Parameters.ParamByName('je').Value :=strtoint(edit23.Text);
dm.sqlx5.ExecSQL;
/////////////////////////////////////jsk
////////////////////   yek
dm.sqlx5.SQL.Clear;
dm.sqlx5.SQL.Add('select *');
dm.sqlx5.SQL.Add('from yek ');
dm.sqlx5.SQL.Add('where InvNo=:pp  and Payer=:kk and   IssuedDate=:dd ');
dm.sqlx5.Parameters.ParamByName('pp').Value :=trim(pp);
dm.sqlx5.Parameters.ParamByName('kk').Value :=trim(kk);
dm.sqlx5.Parameters.ParamByName('dd').Value :=trim(dd);
dm.sqlx5.ExecSQL;
dm.sqlx5.Open;
////////////////////////////是否初次判断
if dm.sqlx5.FieldValues['bm']=null then begin
dm.sqlx5.SQL.Clear;
dm.sqlx5.SQL.Add('update yek ');
dm.sqlx5.SQL.Add('set bm=:hh,ren=:rr,n1=:n1 ');
dm.sqlx5.SQL.Add('where InvNo=:pp  and Payer=:kk and   IssuedDate=:dd ');
dm.sqlx5.Parameters.ParamByName('pp').Value :=trim(pp);
dm.sqlx5.Parameters.ParamByName('kk').Value :=trim(kk);
dm.sqlx5.Parameters.ParamByName('dd').Value :=trim(dd);
dm.sqlx5.Parameters.ParamByName('rr').Value :=trim(c3.Text);
dm.sqlx5.Parameters.ParamByName('hh').Value :=edit2.Text;
dm.sqlx5.Parameters.ParamByName('n1').Value :=strtoint(edit20.Text);
dm.sqlx5.ExecSQL;
.....................................