Así, rápido, veo que falta algo. ¿notás su
ausencia?
Código:
sql="delete from m_galeriasalas " &_
"where cod_mensaje in ( "&
"select b.cod_mensaje, c.cod_sala " &_
"from t_salasmensajes b, m_salas c " &_
"where b.cod_sala = c.cod_sala "&_
"c.cod_proyecto="& cod_proyecto&")"