Skriva ut data från listbox

Hej!

Jag har en listruta med en massa data. Varje rad har ett unikt id och jag skulle vilja skriva ut de data som användaren har valt i listrutan, i detta fallet access rapport.

hittils har jag gjort så här:

Dim i As Integer
For i = Kombinationsruta41.ListCount - 1 To 0 Step -1
If Kombinationsruta41.Selected(i) = True Then
MsgBox (Kombinationsruta41.ItemData(i))
ll22.AddItem (Kombinationsruta41.ItemData(i)) 'tänkte att rapporten kunde baseras på en annan listruta??
End If
Next i

Tack!