Larry you are right,

this is what I am doing.
SQLInsertStr = "Insert Into EmailHistory (UniqueID, Date, MailFrom, MailTo, Subject, Body, EmailType) VALUES (" + Cstr(nextUniqueID) + ",'" + Cstr(Now()) + "','" + FromValue + "','" + ToValue + "','" + SubValue + "','" + BodyValue + "','" + EmailTypeValue + "')"

objConnection.execute SQLInsertStr

The bodyValue is the part that contain " and '
How could I build the string for this situation?

Thanks a lot.