SOME PROBLEM WITH LISTBOXES .. SAVING RECORDS

[rbasram]

I have two list boxes and I want to loop through both the list boxes at the same time to save a record in a new table. I have truied to do with one of the listboxes but i am confused how do i increment the other list box's count. Some of my code is below




Private Sub Command21_Click()
Dim lrsMyRecordSet As Recordset

Dim liLoop As Variant

Set lrsMyRecordSet = CurrentDb.OpenRecordset("test", dbOpenDynaset)

For liLoop = 0 To lstAllProduct.ListCount - 1
'HOW DO I REFERENCE TWO LISTBOX HERE...

lstAllProduct.Selected(liLoop) = True
lrsMyRecordSet.AddNew
lrsMyRecordSet("Pt&quot = Me.lstAllProduct.Column(0, liLoop)
'HERE IS WHERE I WANT THE CONTENTS OF MY SECOND LIST BOX TO BE SAVED AT THE SAME TIME
lrsMyRecordSet("CT#&quot = Me.[txtCTracking]
lrsMyRecordSet("T#&quot = Me.[Tracking#]
lrsMyRecordSet("Pub#&quot = Me.[Publication#]
lrsMyRecordSet("Tit&quot = Me.[txtTitle]
lrsMyRecordSet("DID&quot = Me.[txtDocumentID]
lrsMyRecordSet("AID&quot = Me.[txtAuthorName]
lrsMyRecordSet.Update

Next liLoop

End Sub

 

[rbasram]

I figured it out I just added a line

lrsMyRecordSet("some&quot = Me.2ndListProduct.Column(0, liLoop)

Only the counter gets incremented.