[blue] Dim db As DAO.Database, rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("[purple][B][I]TableName[/I][/B][/purple]", dbOpenDynaset)
With rst
.AddNew
![purple][B][I]MemoFieldName[/I][/B][/purple] = Me![purple][B][I]MemoFieldName[/I][/B][/purple]
.Update
End With
Set rst = Nothing
Set db = Nothing[/blue]