Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("LongTextTest")
rs.Edit
rs!lngText = rs!lngText & "<div><a href=""http://www.yahoo.com"">here</a></div>"
rs.Update
Debug.Print DLookup("lngText", "LongTextTest")