guardar contenido de un listview

hola!

necesito guardar todas las lineas de un listview en la tabla lineas_pedido
de la bd de acces.

lo hago de la siguiente manera pero si las lineas son muchas tarda
bastante
en guardarse.

sabeis de alguna manera mas eficaz de hacerlo?

gracias!







Dim id As String 'codart

Dim precio, cantidad, linia As Double



mysql = "select max(ID_LINEA) from LINEA_PEDIDO"

nuevo.BuscarValor(mysql, "LINEA_PEDIDO", linia)

' linia = linia + 1



Dim I As Integer



For I = 0 To prueba.Items.Count - 1

prueba.Items(I).Selected = True



'codigo del articulo

id = prueba.SelectedItems(0).SubItems(0).Text

cantidad = prueba.SelectedItems(0).SubItems(3).Text

linia += 1

mysql = "Insert into LINEA_PEDIDO values(" & linia
&
"," & pedido & ",'" & id & "'," & cantidad & ")"

gestiona.Gestionar(mysql)



Next