i assume you can't use a multi select with the query wizard. you might have to create a dynamic object in code.
for instance, put a button on the form to run the query and do something like:
Code:
on error resume next
docmd.DeleteObject acQuery, "qry"
dim intcurrentrow as integer
sql = "select * from table where "
For intCurrentRow = 0 To me.listbox.ListCount - 1
If me.listbox.Selected(intCurrentRow) Then
sql = sql & "field = '" & me.listbox.column(0, intcurrentrow) & "' or "
end if
next intcurrentrow
sql = left(sql, len(sql) - 4)
currentdb.createquerydef "qry", sql
currentdb.querydefs.refresh
currentdb.openquery "qry"