OK, I think I got it. The 2 commas in red below weren't there, I added them and now it works.
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_STATUS = 0, M_COUNTRY = '', M_HOMEPAGE = '', M_SIG = '', M_AIM = '', M_ICQ = '', "
strSql = strSql & " M_MSN = '', M_YAHOO = '', M_FIRSTNAME = '', M_LASTNAME = '', M_OCCUPATION = '', M_SEX = '', "
strSql = strSql & " M_DOB = '', M_HOBBIES = '', M_LNEWS = '', M_QUOTE = '', M_BIO = '', M_MARSTATUS = '', "
strSql = strSql & " M_LINK1 = '', M_LINK2 = '', M_CITY = '', M_STATE = '', M_PHOTO_URL = '', M_RECEIVE_EMAIL = 0 "
strSql = strSql & " WHERE MEMBER_ID = " & Member_ID