prova un po così...
codice:
Rs.Close
sql = "SELECT COUNT(id) AS num FROM ass_attivita RIGHT JOIN calendario ON ass_attivita.id_attivita=calendario.id WHERE calendario.data='" & data & "' AND calendario.attivita=5"
Rs.Open sql,,1,1