se può servire a qualcuno ho risolto così:

<%set objconn = server.createobject("adodb.connection")
objconn.connectionstring = "dsn=datarisorse.dsn"
objconn.open
sql = "select punto_vendita, sum(imponibile_fattura) as imponibile from fatture group by punto_vendita "

set objrs = server.CreateObject("adodb.recordset")
objrs.cursorlocation = aduseclient
objrs.open sql, objconn, adopenstatic, 2

objrs.sort = "imponibile desc"
putroppo utilizzando solo la stringa sql con database access non mi accetta l'ordine su un campo su cui vi è stata inserita una funzione di aggregazione, nel mio caso "sum" e quindi ho utilizzato del codice aggiuntivo.
La stringa indicata in precedenza su cui avevo problemi dovrebbe funzionare almeno su database mysql.