Ordenação - SQL

Por gentileza,

Tenho esse SQL que carrega uma caixa de listagem, gostaria de ordenar pelo campo Código (tblMensagens), como faço, estou quebrando a cabeça e nada:

Código:

Private Sub lstMensagens_KeyDown(KeyCode As Integer, Shift As Integer)

    Dim db As DAO.Database, ws As DAO.Workspace, rs As DAO.Recordset, rs2 As DAO.Recordset, L As Double, R As String, varPath As Variant, varPath2 As String, VarArq As Integer

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Sistema de Vendas_be.accdb", False, False, "MS Access;PWD=xxxxxxxxxxx")
Set rs = db.OpenRecordset("SELECT * FROM tblMensagens WHERE Código like " & Me.lstMensagens.Column(0) & "")
Set rs = db.OpenRecordset("SELECT * FROM tblAnexos WHERE CodMensagem like " & Me.lstMensagens.Column(0) & "")

For L = 0 To Me.lstMensagens.ListCount
    If Me.lstMensagens.ListIndex = L Then
        R = "ComDados"
    End If
Next

If R <> "ComDados" Then
    MsgBox "Você não selecionou nenhuma mensagem para excluir.", vbExclamation, "Aviso"
Else
    If MsgBox("Deseja excluir essa mensagem?", vbYesNo + vbQuestion, "Aviso") = vbYes Then
        db.Execute "DELETE FROM tblMensagens WHERE Código=" & Me.lstMensagens.Column(0) & ""
        db.Execute "DELETE FROM tblAnexos WHERE CodMensagem=" & Me.lstMensagens.Column(0) & ""
        Me.TxtPesquisa.SetFocus
        Call Pesquisas
    Else
        Exit Sub
    End If
rs.Close
Set rs = Nothing
End If
End Sub

Muito obrigado!

Olá

Se seu campo que quer colocar como criterio de ordem chama Código substitua essa linha:

Set rs = db.OpenRecordset("SELECT * FROM tblMensagens WHERE Código like " & Me.lstMensagens.Column(0) & "")

por essa linha:

Set rs = db.OpenRecordset("SELECT * FROM tblMensagens WHERE Código like " & Me.lstMensagens.Column(0) & " ORDER BY Codigo")


Veja que só foi acrescentado ORDER BY Codigo

Verifique se seu campo tem acento se tiver tem que colocar.

Obrigado pela ajuda Mrsilva.

Não adiantou, não ocorre erros, porém não ordena, eu já tinha tentado colocar o que você propôs sem êxito.

Wellington

Olá.

Estranho não de dado certo.

Se puder poste seu aplicativo ou somente a parte envolvida que tento aqui, não precisa ter dados.

Primeiramente obrigado pelo auxílio.

Então MrSilva,

Esse BD modelo eu peguei aqui mesmo no fórum, é um exemplo do Criquio:

Envio de Email por CDO

Esse item deve aparecer ordenado no formulário frmPesquisa, da mesma forma que o outlook trata os e-mails enviados, a tabela é tblMensagens

BD exemplo

Repara que esse exemplo a conexão com o BE é feita por VBA.

Novamente obrigado.

Wellington