para eso podes hacer un update a al valor de la tabla de inventarios restandole el valor vendido..
un update en base funciona así
Código:
Lectura = "UPDATE cxc SET total_operado= " & Operado & " ,observaciones = '" & CStr(TxtOb) & "',cancelado =" & Cancelada & " WHERE no_factura = '" & CStr(TxtNoFactura.Text) & "'"
Cxn.Execute Lectura
nos vemos espero te sirva el ejemplo