SQL RANK（）等效于VBA ADODB.Recordset

I'm trying to write an SQL query in VBA for an ADODB.Recordset object that generates a calculated rank field. Using transact-SQL does not work as seen in the sample here.I'm trying to write an SQL query in VBA for an