como se puede guardar esto fila a fila?

me explico mejor:
Para guardar las lineas de una factura cargo un listview con todos los datos
de la linea menos el numfactura y el numlinea q se genera en ese form. Lo q
hago para guardar las lineas de la facura es esto:
Dim nuevo4 As cargalist
mysql = "SELECT isbn, cantidad, pvp, titulo, cod_art, id_pedido,dto_gen FROM
generarlineasfactura where id_pedido=" & idped
nuevo4.MySqlCargarVista(CadenaConexion, mysql, prueba)

For i = 0 To prueba.Items.Count - 1
isb1 = prueba.Items(i).SubItems(0).Text '0
cantidad = prueba.Items(i).SubItems(1).Text '1
pv = prueba.Items(i).SubItems(2).Text '2
ti = prueba.Items(i).SubItems(3).Text '3
id = prueba.Items(i).SubItems(4).Text '4
var6 = prueba.Items(i).SubItems(6).Text '4
'***************************
Dim num As Integer = numfac.Text
linia += 1

mysql = "INSERT INTO lineas_factura (clave, numero_factura,
codigo,cantidad,pvp, titulo,codigo_articulo,dto) "
mysql = mysql & "values(" & linia & "," & num & ",'" & isb1 & "'," &
cantidad & ",'" & pv & "','" & ti & "','" & id & "'," & var6 & ")"
CrearMiOleDbCommand(mysql, CadenaConexion)

mysql = "update stock set stock=stock -" & cantidad & " where CLAVE ='" & id
& "' AND ALMACEN='" & almacen2.Text & "'"
' gestiona.Gestionar(mysql)
CrearMiOleDbCommand(mysql, CadenaConexion)
Next


No se si se podra hacer de forma mas rapida pq cuando hay muchas lineas
tarda bastante.
La consulta anterior era hacer lo mismo pero directamente desde esa consulta
mysql, sin necesidad de cargarlo todo en el listview
No se q forma sera mas eficaz


"Sonia" escribió en el mensaje
news:

si hago una consulta sql para despues q tiene varias lineas y cada
linea kiero guardarla en otra tabla usando
oledbdatareader, q le tengo q decir para hacerlo para cada
fila?
kiero hacerlo igual q lo guardo para cada fila de un
listview q lo hago asi:
For i = 0 To prueba.Items.Count - 1
...
Next

pero para cada fila de la consulta
es eso posible?
gracias!()