Prueba haciendolo por partes, a para que lo veas más claro...
tienes esto:
Cita: db.Execute "UPDATE discusion SET Respuestas=("&RS_Resp("Respuestas")+1&") WHERE IdMensaje="&IdMensaje&" "
Prueba así...
resp = CInt(RS_Resp("Respuestas"))
resp = CInt(resp + 1)
db.Execute "UPDATE discusion SET Respuestas='"&resp&"' WHERE IdMensaje="&IdMensaje