General :: Navigation Control With Query?

I have a form for testing purposes only it is named "Navigation Form". It has a tab called WorkingInitial. Within WorkingInitial I have a form called QueryTester. With a list box called List0.

Basically I want to click on the tab and the query to automaically filter based on the criteria I create. I dont want to have to create a bunch of forms with each seperte query. I want VBA to modify the Query.

This is what i have an I have no clue why it doesnt work or what I am missing.

Code:
Private Sub WorkingInitial_Click()
Dim strSQL As String
List0 = strSQL
strSQL = "SELECT * FROM [Table1 Query].[My.StatusInitial] WHERE StatusInitial = 'Working';"
End Sub