How do i get all of the data out of a listview?

[scruffybear]

Hi,
i have a listview that the user adds data to, after they have finished i want them to click a button and save the contents of the listview into a database.
Any ideas?
Here is my code so far, but i get an error when executing it (Argument not optional)

For i = 1 To ListView1.ListItems.Count Step 1
With namesrs
.AddNew
!names_id = Nbooking_id + 1
!booking_id = Nbooking_id
!Name = ListView1.ListItems.Item.Text
!Ins_A = ListView1.ListItems(i).ListSubItems.Item.Text
!Ins_C = ListView1.ListItems(i).ListSubItems.Item.Text
!Ins_S = ListView1.ListItems(i).ListSubItems.Item.Text
!Ins_X = ListView1.ListItems(i).ListSubItems.Item.Text
!Coach = ListView1.ListItems(i).ListSubItems.Item.Text
!Air = ListView1.ListItems(i).ListSubItems.Item.Text
!Train = ListView1.ListItems(i).ListSubItems.Item.Text
!Other = ListView1.ListItems(i).ListSubItems.Item.Text
!Type = ListView1.ListItems(i).ListSubItems.Item.Text
!Room = ListView1.ListItems(i).ListSubItems.Item.Text
!Ski = ListView1.ListItems(i).ListSubItems.Item.Text
!Board = ListView1.ListItems(i).ListSubItems.Item.Text
!Boots = ListView1.ListItems(i).ListSubItems.Item.Text
!Pass = ListView1.ListItems(i).ListSubItems.Item.Text
!Upgrade = ListView1.ListItems(i).ListSubItems.Item.Text
.Update
End With
Next