Potresti fare qualcosa tipo:
1 - Aggiungi l'id del messaggio nella prima query
2 - Fai una scansione del primo recordset
codice:
' Dichiari una variabile checontiene il numero di msg letti
nLetti=0
while not Ors.eof
   nId=Ors.fields("idmsgpvt")
   strsqlmRs2="SELECT letto FROM msgPvt idmsgpvt="&nId
   mRs2.Open strsqlmRs2, Conn
   if mRs2.field("letto")=true
       nLetti=nLetti+1
   end if
   mRs2.close
   Ors.movenext()
wend
3 - Alla fine testi la variabile nLetti.
Se nLetti=0 hai messaggi non letti, se nLetti>0 non ci sono msg non letti

Dovrebbe funzionare... Almeno spero