FYI... here is the final code:
Option Compare Database
Option Explicit
Public Function EmailNotice()
Dim Outapp As Object, OutMail As Object, OutAccount As Object
Dim rst As DAO.Recordset, rst2 As DAO.Recordset, rst3 As DAO.Recordset, rst4 As DAO.Recordset
Dim varUSMParts As...