replace line #613 & #614:
strsqlvalues = strsqlvalues & ", '" & drs("T_LAST_POST") & "', '" & drs("T_DATE") & "', '" & drs("T_LAST_POSTER")
strsqlvalues = strsqlvalues & "', '" & drs("T_IP") & "', " & drs("T_LAST_POST_AUTHOR") & ""
with this:
strsqlvalues = strsqlvalues & ", '" & drs("T_LAST_POST") & "', '" & drs("T_DATE") & "', " & drs("T_LAST_POSTER")
strsqlvalues = strsqlvalues & ", '" & drs("T_IP") & "', " & drs("T_LAST_POST_AUTHOR") & ""