[Resolvido]Função Order em SQL com Consulta...

Caros colegas, neste SQL o ConControleMensal2 é uma consulta, por isso não estou conseguindo colocar "order by mescerto desc".
Dá erro!
Existe uma outra alternativa para que a MSGBOX ordene pelo mescerto por ordem inicial do mais recente?

Dim dbbanco As DAO.Database
Dim rs As DAO.Recordset
Set dbbanco = CurrentDb()

'Acha as Contas de Controle Mensal que estão zeradas.
Set rs = dbbanco.OpenRecordset("SELECT * FROM [concontrolemensal2] WHERE year([mescerto])=" & Forms!frmadministradorl.Lista166 & "and [totalcontrole]=0 and format([mescerto],'yyyymm') <" & Format(DateSerial(Year(Date), Month(Date), 1), "yyyymm"))

rs.MoveLast
rs.MoveFirst
varcontrole = Format(rs!mescerto, "mm/yyyy") & " - " & rs!Conta & " - " & Format(rs!totalcontrole, "##,##0.00") & vbCrLf
vArano = Forms!frmadministradorl.Lista166
rs.MoveNext
Do While Not rs.EOF
varcontrole = varcontrole & Format(rs!mescerto, "mm/yyyy") & " - " & rs!Conta & " - " & Format(rs!totalcontrole, "##,##0.00") & vbCrLf
rs.MoveNext
Loop
MsgBox ("As seguintes contas devem ser revistas." & vbCrLf & vbCrLf _
& "Não deveriam estar zeradas, pois são mensalmente realizáveis!" & vbCrLf _
& vbCrLf & "Confirme o envio do e-mail a seguir, por favor!" & vbCrLf _
& vbCrLf & varcontrole & vbCrLf & vbCrLf), vbInformation, "AUDITORIA BLACKS"

Agradeço desde já!
At
MPS

Não dá certo porque você colocou o "*" para selecionar todos os registros.
Escreva todos os campos no Select e depois coloque o "Order By".

Leandro, obrigado!
Eu coloquei desta forma abaixo:

Set rs = dbbanco.OpenRecordset("SELECT mescerto, conta, valor_entrada, valor_saida, controlemensal, totalcontrole, faturadoativo, banco, mesreferencia FROM [concontrolemensal2] WHERE year([mescerto])=" & Forms!frmadministradorl.Lista166 & "and [totalcontrole]=0 and format([mescerto],'yyyymm') <" & Format(DateSerial(Year(Date), Month(Date), 1), "yyyymm") & "order by mescerto desc")

Mas dá o seguinte erro: 3075 - erro de sintaxe (operador faltando) na expressão de consulta...

O que pode ser?
At
MPS

Tenta assim:

Set rs = dbbanco.OpenRecordset("SELECT mescerto, conta, valor_entrada, valor_saida, controlemensal, totalcontrole, faturadoativo, banco, mesreferencia FROM [concontrolemensal2] WHERE year([mescerto])=" & Forms!frmadministradorl!Lista166 & "and [totalcontrole]=" & 0 and format([mescerto],'yyyymm')<'" & Format(DateSerial(Year(Date), Month(Date), 1), "yyyymm") & "'" & "order by mescerto desc")

Leandro, não deu certo, mas graças à tua reflexão fui refazendo o Where de parte em parte e deu certo. Ficou assim:
Set rs = dbbanco.OpenRecordset("SELECT mescerto, conta, totalcontrole FROM [concontrolemensal2] WHERE year([mescerto])=" & Forms!frmadministradorl.Lista166 & "and format([mescerto],'yyyymm') <" & Format(DateSerial(Year(Date), Month(Date), 1), "yyyymm") & "and [totalcontrole]=0 order by mescerto desc")

Muito obrigado!
MPS

Ótimo!!!
Obrigado pelo retorno!