Can anyone tell me why my filter doesn't work when I click the button
to run a report?

Private Sub btnCost_Click()
DoCmd.OpenReport "rptCost", acViewPreview
Reports("rptCost").Filter = Me.lstResults.Column(0)
Reports("rptCost").FilterOn = True
End Sub

The filter does not seem to be set when the report runs.