Help! Query Parameter set and report source

I am trying to 1)Set query parameters when the command for report is clicked 2)Run the report taking into account the new query parameters. I've tried several codes.

PROBLEM WITH CODE HERE is that I am still promted for parameters so it is not setting the parameter values.

Dim db As DAO.Database
Set db = CurrentDb
Dim parQ As QueryDef
Set parQ = db.QueryDefs("Summary")
Dim strGrpBy As String
Dim rsQuery As Recordset
Dim strSQL As String

Select Case Select.Value 'Form Value
Case 0
strGrp = ""
Case 1
strGrp = "One"
Case 2
strGrp = "Two"
Case 3
strGrp = "Three"
Case 4
strGrpBy = "Four"
End Select


parQ.Parameters("StartDate") = StartDate.Value
parQ.Parameters("EndDate") = EndDate.Value
parQ.Parameters("prmGrp") = strGrp
parQ.Parameters("prmSel") = lstSelect.Value ' Form Value

DoCmd.OpenReport "Summary", acViewPreview

THE FOLLOWING CODE MAY WORK but I need to know how to make the recordset the new source for the report instead of the query


Dim db As DAO.Database
Set db = CurrentDb
Dim parQ As QueryDef
Set parQ = db.QueryDefs("Summary")
Dim strGrpBy As String
Dim rsQuery As Recordset
Dim strSQL As String

Select Case Select.Value 'Form Value
Case 0
strGrp = ""
Case 1
strGrp = "One"
Case 2
strGrp = "Two"
Case 3
strGrp = "Three"
Case 4
strGrpBy = "Four"
End Select


parQ.Parameters("StartDate") = StartDate.Value
parQ.Parameters("EndDate") = EndDate.Value
parQ.Parameters("prmGrp") = strGrp
parQ.Parameters("prmSel") = lstSelect.Value ' Form Value

Set rstQuery = parQ.OpenRecordset()

ANY SUGGESTIONS? Help with this is greatly appreciated.