[Resolvidos]Ordenar ascendente e descendente no evento após atualizar do formulário

Boa tarde amigos
Tenho este codigo (Não da minha autoria) que ordena "Ascendente" os do formulario, conforme opcção escolhida.

Como fazer com que faça o contrario, isto é Ordenar mas "Descendente"

Private Sub Ordenar_AfterUpdate()
Select Case Me.Ordenar.Value
Case Me.Ref.OptionValue
Me.OrderBy = "Ref"
Case Me.Nome.OptionValue
Me.OrderBy = "Nome"
Case Me.Linha.OptionValue
Me.OrderBy = "Linha"
Case Me.Zona.OptionValue
Me.OrderBy = "Zona"
End Select
Me.OrderByOn = True

Obrigado

Boa tarde, Assis

Procure na ajuda do Access!

Private Sub Ordenar_AfterUpdate()
Select Case Me.Ordenar.Value
Case Me.Ref.OptionValue
Me.OrderBy = "Ref Desc"
Case Me.Nome.OptionValue
Me.OrderBy = "Nome Desc"
Case Me.Linha.OptionValue
Me.OrderBy = "Linha Desc"
Case Me.Zona.OptionValue
Me.OrderBy = "Zona Desc"
End Select
Me.OrderByOn = True

Obrigado Alexandre

Resultou 100%