Olá Treze, meu amigo.
De fato, o campo data está na tabela como texto e o numero está como número.
Só que no campo número existem registros duplicados.
Estou utilizando o Distinct para informar o número apenas uma vez. Porém queria informar os dados, por ordem de data.
Do jeito que você postou, Order By DateValue(data) me apareceu a mesma mensagem.
E da outra maneira: Order By data, não me deu o resultado esperado. Queria que os registros aparecessem de maneira que a última data fosse a primeira da lista.
Talvez eu não tenha sido bem claro nessa parte.
Aqui está a parte do código para realizar essa tarefa:
Private Sub BtnListar_Click()
sqle = "Select Distinct(carga),data,motorista,caminhao From Entregas Order By DateValue(data) Desc"
Set rse = db.OpenRecordset(sqle)
LstEntregas.ListItems.Clear
LstCargas.ListItems.Clear
While Not rse.EOF
Set linha = LstCargas.ListItems.Add(, , rse("carga"))
linha.SubItems(1) = "" & CDate(rse("data"))
linha.SubItems(2) = "" & rse("motorista")
rse.MoveNext
Wend
End Sub
O erro que aparece aponta para a linha em negrito.
Valeu.
Até mais.