filtering report with a listbox

I am trying to run a report - when the report is selected a form pops up (JobSortList) with a listbox (JobList) showing values it pulled from a query (qryJobABT). I need to be able to select one or multiple values from a listbox then filter and display it on the report (rptJobABT).

Form Code (frmJobABT):
Private Sub Preview_Click()
DoCmd.OpenReport "rptJobABT",acViewPreview, ,
"((qryJobABT.JobID=1))"
End Sub

Report Code (rptJobABT):
Private Sub Report_NoData(Cancel As Integer)
MsgBox "There is no data for this report. Canceling report..."
Cancel = -1
End Sub

Private Sub Report_Close()
DoCmd.close acForm, "JobSortList"
End Sub

Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "JobSortList", , , , , acDialog, "Active & Being Trained Volunteers"
If Not IsLoaded("JobSortList") Then
Cancel = True
End If
End Sub

Any help would be greatly appreciated.