[AccessD] Setting the row source of a listbox by code

I have narrowed my problem to this:  I have a listbox and two queries.  If
the form is opened where txtfindProjects = "open", I want to set the row
source of the listbox to qryFindOpenProjects.  Otherwise I want the row
source of the listbox to be qryFindAllProjects.  Here is my code which I
have tried in several events and it doesn't seem to work in any of them.  

Private Sub Form_Open(Cancel As Integer)

 

DoCmd.Maximize

If Forms!frmProjects!Text55 = "all" Then

Me.List52.RowSource = "qryFindAllProjects"

ElseIf Forms!frmProjects!Text55 = "open" Then

Me.List52.RowSource = "qryFindOpenProjects"

 

 

End Sub

 

Any ideas?  Thanks.

 

Susan Klos

Senior Database Analyst

Evaluation and Reporting

Florida Department of Education

850-245-0708 

sc 205-0708