necesito modificar esta consulta para actualizar el stock mediante sql

al facturarcon vb.net, guardo la cabecera de la factura y las lineas de este
modo:

'cabecera

mysql = "insert into FACTURAS (NUMERO_FACTURA, CLIENTE, FECHA, ID_PEDIDO,
REFERENCIA, EMPLEADO, DTO1, DTO2, DTO3, DTO4, modo_pago, iva, ALMACEN,
OBSERVACIONES, codigo_pago) values ('" & numfac.Text & "','" & codcli.Text
& "','" & fechafac.Text & "','" & idgenerarfactura & "','" & referencia.Text
& "','" & Operadora.Text & "','" & d1.Text & "','" & d2.Text & "','" &
d3.Text & "','" & d4.Text & "'," & modogenerarfactura & "," & iva2 & ",'" &
almacen & "','" & tocho & "','" & pago & "')"
nuevo.Gestionar(mysql)

'lineas

mysql = "INSERT INTO lineas_factura (numero_factura, codigo, cantidad, pvp,
titulo, codigo_articulo, dto) SELECT " & num & ",isbn, cantidad, pvp,
titulo, cod_art, dto_gen FROM generarlineasfactura where id_pedido=" & idped
CrearMiOleDbCommand(mysql, CadenaConexion)


ahora necesito modificar el stock pero kisiera hacerlo dela forma mas eficaz
y rapida posible, es decir, desde las lineas facturas, para lo cual me falta
como buscar de una sola consulta los campos 'clave' y stock' de las todas
las lineas factura de esa factura

me podeis decir como hacerlo
la forma una a una sacando para cada linea esos 2 campos seria esta, pero es
muy lenta.
queria hacerlo de forma similar a como guardo las lineas (mediante otra
consulta), per con el update no se como hacerlo

gracias!

mysql = "update stock set stock=stock -" & canti & " where CLAVE ='" &
cod_art & "' AND ALMACEN='" & alm & "'"
CrearMiOleDbCommand(mysql, CadenaConexion)