guarda nn vorrei sbagliare ma mi sa che basta che imposti la proprietà sorted della combo su true per mettere in ordine alfabetico

Do While Not rstAnagrafica.EOF = True
cboClienti.AddItem rstAnagrafica!Cognome & Space(1) & stAnagrafica!Nome
rstAnagrafica.MoveNext
Loop

boclienti.sorted = true