I need to export several records using multiselect from 1 list box to another. I am using the code found in the help file, but I am not sure how to make the reccords appear in the second list box. Here is what I have so far:

Private Sub selRecord_Click()

Dim frm As Form
Dim ctl As Control
Dim exp As Control
Dim varItm As Variant

'sets name of the form to "frm"
Set frm = Forms!Form1
'sets name of the first list to "ctl"
Set ctl = frm!List2
Set exp = frm!expList

'loop for getting each item selected and passing it into an array
For Each varItm In ctl.ItemsSelected

MsgBox ctl.ItemData(varItm)

Next varItm

End Sub


What I need to do in the end is import those records into a temp table created with a random name. And it needs to be the entire record... But right now I would really appreciate a little help with this first bit.