Hi,
if it was me, i'd make the function more flexible. you shouldn't hard code email addresses and notifications-
Public Function fDOBNotices(strTo As String, strSubject As String, strBody As String) As Boolean
Dim db As DAO.Database, rs As DAO.Recordset
Dim strTo As String, strSubject...