Duda con ListView en Visual Basic 6

[GhostLT]

A la hora de guardar la lista en mi base de datos
With RsDetalleFacturaPlotter
    .Requery
    .AddNew
>  !material = ListView1.ListItems(1)
    !medidaancho = ListView1.ListItems(2)
    !medidalargo = ListView1.ListItems(2)
    !cantidad = ListView1.ListItems(4)
    !descuento = ListView1.ListItems(5)
    !importe = ListView1.ListItems(6)
    !fechadeentrega = ListView1.ListItems(7)
    .Update
End With
Me aparece un error que dice:
El indice está fuera de los limites
Si necesitan mas información porfavor preguntenme esque no me se explicar muy bien ya busque información y los ejemplos que encontré no son lo que yo necesito  -------------------------------------------:huh:--------------------------------------------

[jack06]

pero que onda estas repitiendo dos veces  !medidaancho = ListView1.ListItems(2) y !medidalargo = ListView1.ListItems(2) y donde esta la 3  

Código (vb) [Seleccionar] Expandir

With RsDetalleFacturaPlotter
   .Requery
   .AddNew
   !material = ListView1.ListItems(1)
   !medidaancho = ListView1.ListItems(2)
   !medidalargo = ListView1.ListItems(3) 'aca va 3 xD
   !cantidad = ListView1.ListItems(4)
   !descuento = ListView1.ListItems(5)
   !importe = ListView1.ListItems(6)
   !fechadeentrega = ListView1.ListItems(7)
   .Update
End With

[GhostLT]

Muchas gracias por el comentario le he estado dando toda la noche y logre lo que necesitaba me quedo de esta manera
'agregar detalle
Dim Registros As Integer
Registros = RsTemporalFacturaPlotter.RecordCount
RsTemporalFacturaPlotter.Requery
RsTemporalFacturaPlotter.MoveFirst
For x = 1 To Registros
With RsDetalleFacturaPlotter
    .Requery
    .AddNew
    !Factura = txtfactura.Text
    '!fecha = Date
    !material = ListView1.ListItems.item(x)
    !medidaancho = ListView1.ListItems.item(x).ListSubItems(1)
    !medidalargo = ListView1.ListItems.item(x).ListSubItems(2)
    !cantidad = ListView1.ListItems.item(x).ListSubItems(3)
    !descuento = ListView1.ListItems.item(x).ListSubItems(5)
    !importe = ListView1.ListItems.item(x).ListSubItems(7)
    !semana = lblsemana.Caption
    !Hora = lblhora.Caption
    .Update
End With
If x = Registros Then Else RsTemporalFacturaPlotter.MoveNext
Next
'enviar un mensaje de confirmacion: se facturo correctamente
MsgBox "La factura fue creada correctamente", vbInformation, "Aviso"
Unload Me
MenuPrincipalForm.Show