Sei sicura/o che la select sia corretta? Forse volevi usare ORder By al posto di Group By (che credo non abbia senso)

E poi hai inserito il riferimento alla libreria ADO? Se no Fallo e dichiara il recordset cos': Dim RS as ADODB.Recordset

Fammi sapere e dimmi cmq su quale riga di codice ti si blocca