HELP - Send Email From Access Query To Oulook

Public Function SendEmail(Optional ByVal strTo As String, Optional ByVal blnSendNow As Boolean, _
                          Optional ByVal strCC As String = "", Optional ByVal strBCC As String = "", _
                          Optional ByVal strSubject As String = "", Optional ByVal strBody As String = "", _
                          Optional ByVal strAttachement As String = "") _
                As Boolean
'* Function Name:SendEmail
'* Parameters: strTo, blnSendNow, strCC, strBCC, strSubject, strBody, strAttachement 
'* Author: BigHappyDaddy
'* Date: September 11, 2012
'* Purpose:
'* Sends an email using the attributes passed into the function. Returns TRUE when email is successfully sent.
 
    Dim objOut As Object
    Dim objMail As Object
 
    Set objOut = CreateObject("Outlook.Application")
    Set objMail = objOut.CreateItem(olMailItem)
 
    On Error Resume Next
    With objMail
        .To = strTo
        .CC = strCC
        .BCC = strBCC
        .Subject = strSubject
        .Body = strBody
        If strAttachement <> "" Then
            .Attachments.Add strAttachement
        End If
        If blnSendNow Then
            .Send
        Else
            .display
        End If
    End With
 
    Set objOut = Nothing
    Set objMail = Nothing
 
    SendEmail = True
End Function

Public Sub EmailQuery()
   Dim strQuery as string
   Dim blnEmailSent as Boolean
   Dim db as DAO.database
   Dim rs as DAO.Recordset
 
   strQuery = "Query Name or SQL Statement goes here"
   set db = currentdb()
   set rs = db.openrecordset(strQuery,dbOpenDynaset)
 
   do until rs.eof
      blnEmailSent = SendEmail ( rs("EmailField"), false)
      rs.movenext
   Loop
 
   'Addtional code as needed goes here
 
End Sub