Private Sub Кнопка2_Click()
Dim i, ss
' Me - это наша форма, lstbox - имя списка
For Each i In Me.lstbox.ItemsSelected
ss = ss & Chr(34) & Me.lstbox.ItemData(i) & Chr(34) & ","
' если отбираем числовые данные, то chr(34) не нужно (это кавычки)
Next

ss = "(" & Left(ss, Len(ss) - 1) & ")"
' собрали что-то вроде ("Вася","Коля","Маша")

DoCmd.OpenReport "НашОтчет", acViewPreview, , "name in " & ss

End Sub