se preferisci puo aggiungere As così:

rs.Open "SELECT a.nickname, b.messaggio FROM Profili As a,Messaggi As b WHERE b.codprofili = a.id", conn

a e b sono alias di comodo... prova e vedi se ti funziona