Eu ver.
Não pode você apenas adicionar o valor antes de emiti-lo a sua pergunta:
sSQL3 = “atualização [Inventaire] ajustou-se [Quantité_distribuée] =” & val (txtQté.Text) + val o _ (de txtQté2.Text)
& “ONDE Période = “” & ComDateDisponible.Text & “” “_
& “E Description_du_produit = “” & Des_prod.Text & “” “