se provi così?
rs.Open "SELECT a.nickname, b.messaggio FROM Profili a,Messaggi b WHERE b.codprofili = a.id", conn