Erro na tentativa de abrir o RecordSet:
SELECT month(p.DtInsert) mes, day(p.DtInsert) dia, year(p.DtInsert) ano, p.PostID, p.Titulo,replace(replace(p.Post, '\r\n',''),'"','\'') Post, p.arq_conta_id, p.ImgConta, p.Tag FROM blog_post p Where p.FlagPublico = '1' order by p.DtInsert DESC

Entrar em contato com o Desenvolvedor.