Case Select To Run Queries

Please help with the code below.

I am trying to select a different query based on the selection in the [Product] Field. I have 4 different products and 3 different queries to run. Each product is specific to a particular query.

What I would like is:
When Product 3 is chosen "Query 1" is ran.
When Product 1 is chosen "Query 1" is ran.
When Product 2 is chosen "Query 2" is ran.
When Product 4 is chosen "Query 3" is ran.

As it is set up now it appears that when choosing Product 1 I open Query 2 and when choosing Product 2 I open Query 1, but it is the opposite of that. I get the correct query with this code by choosing Product 1 and the Query that opens is actually Query 1, I don't know what is going on here.

When I open Products 3 & 4 it always opens Query 2, no matter what Query I specify.

Please help me sort this out. I am not very familiar with case select. Thanks

Private Sub run_query_Click()
On Error GoTo Err_run_query_Click

Dim stDocName As String
stDocName = "Query 1" (Should be for Product 1 & 3)
stDoc1Name = "Query 2"(Should be for Product 2)
stDoc2Name = "Query 3" (Should be for Product 4)Select Case stProtocolName
Case [Product] = "Product 1": DoCmd.OpenQuery stDoc1Name, acNormal, acEdit

Case [Product] = "Product 2": DoCmd.OpenQuery stDocName, acNormal, acEdit

Case [Product] = "Product 3": DoCmd.OpenQuery stDoc1Name, acNormal, acEdit

Case [Product] = "Product 4": DoCmd.OpenQuery stDoc2Name, acNormal, acEdit

Exit_run_query_Click:
End Select
Exit Sub

Err_run_query_Click:
MsgBox Err.Description