Update com valor duplicado

Boa Tarde amigos, nesse codigo faço um update do mesmo campo em varios itens ao mesmo tempo! O update roda mas ele esta gravando a informação duplicada:

Do form anterior pego o campo retira esse form e dinamico então se tenho 3 registros ele grava o campo retira tres vezes em cada cod_produto o que era para ficar assim:

Cod_produto = 3455 Retira = Dep

Cod_produto = 3244 Retira = Ret

Fica assim

cod_produto = 3455 Retira = Dep,Ret

cod_produto = 3244 Retira = Dep,Ret

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=xxx\prod.mdb;Driver={Microsoft Access Driver (*.mdb)}"
pedido = Session("codped_est")

Set rsProd = conexao.Execute("SELECT cod_produto FROM pedido_item WHERE cod_pedido = "&pedido&" ")

While Not RSProd.EOF

id = rsProd("cod_produto")
cod_pedido = rsProd("cod_pedido")
retira = Request.Form("retira")

 conexao.Execute "UPDATE pedido_item SET retira = '"&retira&"' WHERE cod_produto = " &id & " AND cod_pedido = "&pedido&" "

 rsProd.MoveNext

conexao.close
Set RSProd = Nothing
%>

Qual é o problema nessa situação?

Obrigado