You are actually changing the SQL of a saved query (ListQuery) when you execute that code. The next time the form is opened, records with "noozger" will be displayed, not "Boo". If that is OK, then you are golden.
I dislike changing the SQL of saved queries. You might as well just change the record source property of the form.
But here are the code changes I would try:
Code:
Private Sub Temp_Click()
Dim db As DAO.Database
Dim QDF As QueryDef
Dim S As String
Set db = CurrentDb
Init '?????
Set QDF = db.QueryDefs!ListQuery
S = "SELECT Lists.L_Num, Lists.L_Name, Lists.L_Chosen " & "FROM Lists "
S = S & "Where (((Lists.L_Name) Like ""*noozger*""))" & " ORDER BY Lists.L_Name;"
QDF.SQL = S
Me.Requery
' Forms!F_Lists.Requery
Set db = Nothing
End Sub
You could also set the form record source (or the query "ListQuery") to
Code:
SELECT Lists.L_Num, Lists.L_Name, Lists.L_Chosen
FROM Lists
ORDER BY Lists.L_Name;
Then set a filter in the click event of the button.
Code:
Private Sub Temp_Click()
Me.Filter = Lists.L_Name Like ""*noozger*""
Me.FilterOn = True
End Sub