I have browsed a number of posts on this topic but for some strange and very subtle reason, my code is refusing to work.
Can anyone find the cause for the following Err on the .Update

Err : 3749 : Object/ErrObject : AbundanceUtilities.SendByGmail
: Description : "Fields update failed. For further information, examine the Status property of individual field objects." : String : AbundanceUtilities.SendByGmail
: HelpContext : 1240791 : Long : AbundanceUtilities.SendByGmail
: HelpFile : "C:\Windows\HELP\ADO270.CHM" : String : AbundanceUtilities.SendByGmail
: LastDllError : 0 : Long : AbundanceUtilities.SendByGmail
: Number : 3749 : Long : AbundanceUtilities.SendByGmail
: Source : "ADODB.Fields" : String : AbundanceUtilities.SendByGmail

My code is as follows:
Please Login or Register  to view this content.
Any help would be appreciated.

Virat