Multiselect list boxes always return Null, regardless of how many records
may be selected in them.
You need to loop through all of the entries in the control's ItemsSelected
collection. Here's an example from the Help file:
Sub BoundData()
Dim frm As Form, ctl As Control
Dim varItm As Variant
Set frm = Forms!Contacts
Set ctl = frm!Names
For Each varItm In ctl.ItemsSelected
Debug.Print ctl.ItemData(varItm)
Next varItm
End Sub

Signature
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
> Hi everybody! I am trying to multi select in a list box but i get this
> error
[quoted text clipped - 8 lines]
> me do
> this task? Thanks!