galera obrigado por tudo.

consegui fazer. o negócio é mais simples do que pensei. é só colocar o campo igual a 0.
sql = "UPDATE itens_pedido2 SET situacao= 0  where codigo_produto = " & lstcodigopedido.List(i) & " and codigo_pedido = " & txtcodigo.Text & ""
 
o zero quer dizer que o codigo não está selecionado. se fosse selecionado seria 1.