Appending from 2 multiselect listboxes

[deejayquai]

Hi

I'm moving forward with a topic I've posted a couple of time before but
still haven't cracked it, any further help is much appreciated.
In a nutshell, I want to append either 1 or a selection of group
members with either 1 or a selection of activity names into a
assessment table called- tblAssessmentActivityProfile from 2
multiselect listboxes on a form.

[Group Member ID] is the primary key I wish to append from
tblGroupMembers into the [Group Member ID] field for
tblAssessmentActivityProfile from the 1st listbox (List0) and [Activty
Name] is the field I wish to append into the [Activty] field in the
same tblAssessmentActivityProfile from the second listbox (List2).

My code, which a fellow group member recommended is:
---------------------------------
Private Sub Command5_Click()
For Each lb0ID In List0.ItemsSelected
For Each lb1ID In List2.ItemsSelected
DoCmd.RunSQL "INSERT into tblAssessmentActivityProfile ( [Group
Member ID], [Activity] ) " _
& " VALUES ( " & lb0ID & "," & lb1ID & ")"
Next
Next
End Sub
----------------------------

This appends a different Group Member ID to the one I select and rather
than append the activity name it appends a number. I'm now stuck and
have limited experience with coding, for a start I don't know what
lb0ID and lb1ID are!

Thanks for your time.

David