It involves a little coding, but it's not too bad.
Here's an example of code which will fill a table which you can use in a query, joined on the ID field, to do what you want.
Your list box must have it's multiselect property set to extended.
Dim rs As Recordset
Dim ctl As Control
Dim Item As Variant
Set rs = CurrentDb().OpenRecordset("tblInclude")
Set ctl = Forms![frmInclude]![IncludeList]
DoCmd.RunSQL("DELETE * FROM tblInclude")
For Each Item In ctl.ItemsSelected
rs!ID = CLng(ctl.ItemData(Item))
Set rs = Nothing
Set ctl = Nothing