' Can anyone suggest what to look for to resolve this.
Dim l_Database as DAO.Database
Dim l_Query as DAO.Querydef
Dim lr_Data as DAO.Recordset
Dim ls_HTML_Body as String
On Error GoTo Errs_This_Module_Name
Set l_Database = DBEngine(0) (0)
Set l_Query =...
