Metto il pezzetto di codice così da essere più chiaro

Io popolo il combo così:

Dim dbsDati As Database
Dim rstAnagrafica As Recordset
Dim sql As String
Dim Anagrafica As Recordset
Dim riga As Long


Set dbsDati = OpenDatabase(PathDatabase & "database\dati.mdb")
Set rstAnagrafica = dbsDati.OpenRecordset("Anagrafica")

Set dbsComuni = OpenDatabase(PathDatabase & "database\Comuni.mdb")
Set rstComuni = dbsComuni.OpenRecordset("Comuni")
rstComuni.Index = "COMUNI2L"



Do While Not rstAnagrafica.EOF = True
cboClienti.AddItem rstAnagrafica!Cognome & " " & rstAnagrafica!Nome
cboClienti.ItemData(cboClienti.ListCount - 1) = rstAnagrafica!ID
rstAnagrafica.MoveNext
Loop

Poi quando seleziono un nominativa nell'evento click del combo faccio:

sql = "SELECT * FROM Anagrafica where ID = " & Me.cboClienti.ItemData(Me.cboClienti.ListIndex)

Vorrei fare in modo che quando apro il combo la lista dei nominativi sia in ordine alfabetico.

Grazie