Sigo sin solucionar la consulta
Gracias Myakire, he puesto la consulta asi:
SQLMaxId = "select nombre from foro where idmensaje IN (SELECT Max(idmensaje) AS MaxID,Idcabeza FROM foro GROUP BY Idcabeza HAVING Idcabeza="& objRS("idmensaje") &")"
Me devuelve este error: Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] Ha escrito una subconsulta que puede devolver más de un campo sin utilizar la palabra reservada EXISTS en la cláusula FROM de la consulta principal. Corrija la instrucción SELECT de la subconsulta para solicitar un único campo.