I cant run this. please help! the error is

run-time error 3061 too few parameters expected 1

in this line --------->> Set rs = db.OpenRecordse t <---- below


Code:
Public Function SendEmailAdvice() As String

Dim db As DAO.Database, rs As DAO.Recordset
Dim sSQL As String

   'Set environment
   Set db = CurrentDb
   DoCmd.SetWarnings False
...