Qual a necessidade de que o código siga a ordem alfabética?, cada vez que voce incluir novos clientes esses códigos acabariam mudando, portanto não vejo vantagem em atrelar o código a ordem alfabética, se a necessidade for apenas abrir o banco em Ordem alfabética de nome voce pode fazer da sequinte forma:
Dim Base As Database
dim Rs as Recordset
Set Base = Wk.OpenDatabase("c:caminhoanco de dados.mdb", False, False)
set rs=base.OpenRecordset("SELECT Clientes.* FROM Clientes ORDER BY Clientes.Nome_R;")