In questi casi non si scorre un recordset, ma si usano le funzioni di aggregazione appropriate (Count). Prova così:

codice:
Set grsCasaPro = New ADODB.Recordset
gsSQL = "SELECT DTA_RIL, COUNT(*) As NumGiorni "
gsSQL = gsSQL & " FROM " & scerca 
gsSQL = gsSQL & " WHERE LGO_RIL = " & ivia
gsSQL = gsSQL & " GROUP BY DTA_RIL "

Set grsCasaPro = gCnDatabase.Execute(gsSQL)
Poi se vuoi vedere il risultato in maniera estemporanea puoi scorrere il recordset:
codice:
Do While Not grsCasaPro.Eof
    Debug.Print grsCasaPro(0), grsCasaPro(1)
    grsCasaPro.MoveNext
Loop