actualizar campo SQL Express con delphi desde Excel

[sensei]

hola a todos espero puedan ayudarme con esto,utilizo delphi6 y
sql express2005. utilizo ado para visualizar datos de una hoja de excel que contiene los campos articulo,descrip,existencia,almacen,ubicacion los cuales se muestran en un dbgrid y hasta aqui todo bien.
a la hora de querer actualizar la tabla prods que esta en servidor sql y
que contiene los mismos campos que la hoja de excel;me actualiza con el mismo valor todos los registros del campo existencia(el cual es el unico que quiero actualizar) me deja el valor del ultimo registro
de ante mano Gracias.

el codigo es el siguiente:

Código Delphi [-]
while not dbgrid2.DataSource.DataSet.Eof do begin   
  ADOQuery4.Close;   
  ADOQuery4.SQL.Clear;    
  ADOQuery4.SQL.Add('update Prods set Existencia =:a');
  ADOQuery4.Parameters.ParamByName('a').Value:=dbgrid2.Fields[2].Value;  
  ADOQuery4.Prepared;   
  ADOQuery4.ExecSQL;   
  dbgrid2.DataSource.DataSet.next; 
end;                                 
end;