rs.Open "SELECT forum_msg.*,members.mod_forum,members.mod_all,members.name,members.occupation,members.points_total,members.avatar_url,members.online_status,category.cat_name,category.cat_id FROM (forum_msg INNER JOIN members ON forum_msg.member_id=members.member_id) INNER JOIN category ON forum_msg.cat_id=category.cat_id where group_id="&group_id&" and not status>1 order by msg_id asc",con,1,3
Look at the WHERE condition.
where group_id="&group_id&" and not status>1 order by msg_id asc
Change that line like as below
where group_id="&group_id&" and status<>1 order by msg_id asc
where group_id="&group_id&" and status<1 order by msg_id asc