[Resolvido]Ordenar ao filtrar

Boa tarde Amigos

O código abaixo funciona bem.

Mas como ordenar a filtragem por "Nome" ?

Obrigado

Private Sub txtFiltro_Change()
Dim strSql As String

strSql = "SELECT Nome,contribuinte, cidade FROM Clientes WHERE " & _
"strConv(Nome, 2) like '*" & StrConv(Me!txtFiltro.Text, 2) & "*'" & _
"OR strConv(contribuinte, 2) like '" & StrConv(Me!txtFiltro.Text, 2) & "*'" & _
"OR strConv(cidade, 2) like '" & StrConv(Me!txtFiltro.Text, 2) & "*';"

Me!Texto77.RowSource = strSql

End Sub

..."OR strConv(cidade, 2) like '" & StrConv(Me!txtFiltro.Text, 2) & "*' ORDER BY Nome;"

Vale lembrar que nomear um campo com a palavra "Nome" vai contra as recomendações de não usar palavras reservadas pois isso pode ocasionar problemas ao referenciar objetos. Para evitar isso passei a nomear meus campos nas tabelas com o prefixo "cp", nesse caso ficaria cpNome.

Obrigado Damasceno

+ rápido impossível . Funciona perfeito

Quanto a "Nome" a BD já não é de agora, se der problema tenho que dar um trato

Bom fim de semana