Hi,

I am in need of information on how to arrange the listitems in a listview to be automatically added into a table in a database. I have the following code but get an error back of Out Of Bounds.

Code:

Dim myRs As Recordset, i As Integer

Set myRs = pDatabase.OpenRecordset("Temp", dbOpenTable)


myRs.AddNew
myRs!RDate = LsvWDetails.ListItems.Item(1)
myRs!RLKnee = LsvWDetails.ListItems.Item(2)
myRs!RRKnee = LsvWDetails.ListItems.Item(3)
myRs!RLThigh = LsvWDetails.ListItems.Item(4)
myRs!RRThigh = LsvWDetails.ListItems.Item(5)
myRs!RBust = LsvWDetails.ListItems.Item(6)
myRs!RPlus = LsvWDetails.ListItems.Item(7)
myRs.Update
myRs.Close


Now I get the Out of bounds code on item(2) - (7). Any ideas on how to change this so it will work will be greatly appreciated and Thanks in advance for any help.

Mike

ps: sorry stevie i took out the for loop

[Edited by Spawny on 04-05-2000 at 07:50 AM]