Sorry.. 
I missed the fact that you were using a query. I can't get the ".Column(1)" to work either.
Here is a work around.
Add an unbound text box on the form "frmSelect".
In the after update event of "List0", add
Code:
Private Sub List0_AfterUpdate()
Me.Text2 = Me.List0.Column(1)
End Sub
Change "Text2" to your text box name.
In the query criteria, enter
Code:
[Forms]![frmSelect].[Text2]
(again, change Text2 to your text box name)
Another work around would be to create the SQL for the query in code and update the SQL property of the saved query.