[firebase-br] Erro de TokenUknow nesse Update..ajuda! estou usando FB, Delphi 7

[Cesar]

eu consegui fazert esse update..mais esta dando erro no Where erro de Token 
Uknow..como posso resolver isso
estou fazendo assim
Var
 strQuantidade: string;
begin
  strQuantidade := FloatToStr(Modulo.SqlPedidosQUANTIDADE.AsFloat);
  Modulo.SqlProdutos.Close;
  Modulo.SqlProdutos.SQL.Clear;
  Modulo.SqlProdutos.SQL.Add('UPDATE PRODUTO SET '+
                                           'ESTOQUE = ESTOQUE + '+ 
strQuantidade+','+
                                           'WHERE COD_PRODUTO = 
'+#39+Modulo.SqlPedidosCOD_PRODUTO.AsString+#39);
            Modulo.SqlProdutos.Prepare;
            Modulo.SqlProdutos.ExecSQL;
            Modulo.SqlPedidos.Next;



	

	
		
_______________________________________________________ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/