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:--------------------------------------------

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