Hola
En esos casos, yo suelo utilizar directamente una sentencia SQL, me parece mucho mas fácil que trabajar con el ADODC, si en el list1 tienes el listado de productos y en un Text metes lo consumido, sería algo parecido a esto:
Código:
bd.execute "UPDATE Tabla1 SET stock=stock-" & text1.text & " where producto=" & list1.text
Despues de esto tendrás que actualizar el ADODC para que muestre los nuevos resultados
--Saludos--