"Error 3061" with this SQL for a report

[Sylvialn]

Here's what I have: 1 report (Final) which contains 2 subreports. I need to total each different event (of the two subreports) onto the Final report.
Ex: Subreport1: Name, Event1, days; Name, Event3, days
Subreport2: Name, Event5, days; Name, Event1, days

On the Final report I tried writing an SQL sub and it gives me an error on the line: Set rstQry = dbs.OpenRecordset("qryRptFacPtsSubOne&quot. Here's the code I have in the report on open:
Private Sub Report_Open(Cancel As Integer)
.....Dim strEvent As String
Dim dbs As Database
Dim rstQry As Recordset.....
Set dbs = CurrentdB
Set rstQry = dbs.OpenRecordset("qryRptFacPtsSubOne&quot
With rstQry
rstQry.MoveFirst
Do While Not rstQry.EOF
strEvent = rstQry!EventCode
' Set lookup variables to count events
Select Case strEvent
Case "2".........
End Select
rstQry.MoveNext
Loop
End With
End Sub

The error states "Runtime error 3061: Too few parameters, Expected 2." I'm unsure of what else I need though. Any suggestions? "Try everything at least once."