Bob-
Thank you for always helping me out! That worked perfectly! For learning purposes what am I doing wrong on the recordset way of doing things:
Public Function test2()
Dim OL As Object, MailSendItem As Object
Dim CompM As String
Dim db As DAO.Database
Dim compp As DAO.Recordset
Set OL =...