Visual Basic - LISTBOX y ADDITEM

Hola maestros.
soy novato y estoy haciendo una aplicación para mi escuela: Mediante una consula ADO, en un listbox añado las fechas en que un alumno tiene reportes; mi pregunta sería, cómo hago para que al insertar las fechas con additem, en primer lugar salga la fecha del último reporte y así en orden descendente. Ya lo tengo pero las fechas están ordenadas de la primera hasta la fecha más reciente, por lo que yo quiero acceder rápidamente a la fecha más reciente.
asi lo tengo asi lo necesito
01/08/05 16/08/05
09/08/05 11/08/05
11/08/05 09/08/05
16/08/05 01/08/05
Ojalá alguien resuelva mi duda, gracias
Paco

Lo ideal sería que desde la consulta ADO arreglaras el problema, hay una sentencia SQL que te permite ordenar los datos ascendente o descendentemente. Un ejemplo sería: "select * from fechas order by fecha desc". Recuerda usar el order by o no te andará. Otra manera es en visual, utilizando un for, leer toda la lista y luego invertirla:

Private Sub Command1_Click()
Dim Aux As String
For i = 0 To (List1.ListCount - 1) / 2
'utilizo una variable auxiliar
Aux = List1.List(i)
List1.List(i) = List1.List(List1.ListCount - (i + 1))
List1.List(List1.ListCount - (i + 1)) = Aux
Next i
End Sub

Pero es más razonable que lo hagas desde la consulta. Espero te sirva. Saludos.