Eu tenho no meu formulário um grid onde vão aparecer todos os registros cadastrados.

Como eu faço para que eles apareçam listados em ordem alfabética?

eu faço assim;

 

   TabCid.CursorLocation = adUseClient
   TabCid.Open "select seq, descricao, uf, cep from CadCidade order by [Descricao]", BancoCid, adOpenKeyset, adLockReadOnly
   If Not TabCid.EOF Then
      Set DataGrid1.DataSource = TabCid
   Else
      Set DataGrid1.DataSource = TabCid
   End If
  
saida:
   Set TabCid = Nothing