[AccessD] Help with syntax please....OpenRecordset

I am trying to use a saved query for my recordset source....but keep getting an error 'Too few parameters - expected 1' on the line 'Set rs = '
After many hours, I can't fix it so would appreciate the help.....


Code:

--------------------------------------------------------------------------------

Public Function EmailWebLetterRecipients()
Dim strerrormsg, strsql, StrQueryName As String
Dim VarEmailto As Variant
Dim intrecno, IntWebLetterID As Integer
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb


StrQueryName = "QryWebLetter_ReadRecipientsEmail"
  
Set rs = db.OpenRecordset(StrQueryName, dbOpenDynaset)     ' Open recordset on saved query        ERROR HERE

With rs
    .MoveFirst
    .Edit

     VarEmailto = .Fields("LoginEmail")
    .Update
    .close
End With
'MsgBox ("Going to " & VarEmailto)

'Call Send_Email(VarEmailto, StrNamePDFFile)

Normal_exit:
    DoCmd.SetWarnings True
    Exit Function

Err_Handler:
    MsgBox "Error: [" & Err.Number & "]  " & IIf(Len(strerrormsg) > 0, strerrormsg, Err.Description), vbCritical, "Error Message"
    Resume Normal_exit
End Function


--------------------------------------------------------------------------------

Kath Pelletti
Software Design & Solutions Pty Ltd.
Ph: 9505-6714
Fax: 9505-6430
KP at SDSOnline.net