non so come funzioni il tuo codice ma credo bisogni cambiare l'ordinamento qui
invece che
custRs.Sort = "data DESC"

così
custRs.Sort = "nome DESC"

così li ordina per nome decrescente