Mostrar Datos en la Grilla

[SalomonSab]

Nunca he utilizado el TOP puedes orientarmer ORDER BY lo uso siempre pero el otro No. Solo quiero ordenar el mas nuevo.

Estoy Utilizando este Codigo:

Código:

rs.Open "SELECT * FROM RamasIMSS WHERE RamasFecha <= #" & Format(Date, "dd/mm/yyyy") & "# And RamasFecha = (SELECT MAX(RamasFecha) FROM RamasIMSS)", cnn, adOpenStatic, adLockOptimistic
        rs.Requery 1
        
        Call MostrarRamasdelIMSS(GrillaRamasIMSS)
        Contador1 = 1
        SSTab2.Tab = 0
        
        While rs.EOF = False
            GrillaRamasIMSS.TextMatrix(Contador1, 0) = rs.Fields("RamasID")
                GrillaRamasIMSS.TextMatrix(Contador1, 1) = Format(rs.Fields("RamasFecha"), "dd/MM/yyyy")
                GrillaRamasIMSS.TextMatrix(Contador1, 2) = rs.Fields("RamasCocepto")
                GrillaRamasIMSS.TextMatrix(Contador1, 3) = Format(rs.Fields("RamasTrabajador"), "#,##0.0000")
                GrillaRamasIMSS.TextMatrix(Contador1, 4) = Format(rs.Fields("RamasPatron"), "#,##0.0000")
                GrillaRamasIMSS.TextMatrix(Contador1, 5) = Format(rs.Fields("RamasLimite"), "#,##0.0000")
                
                Contador1 = Contador1 + 1
            rs.MoveNext
        Wend

Si quito esta linea

Código:

<= #" & Format(Date, "dd/mm/yyyy") & "# And

Me muestra la ultima fecha. pero ahora mi problema es que si el usuario va agregando mas fechas el sistema me deve tomar la mas reciente a la fecha por ejemplo

si tengo:
01/01/2008
01/07/2008
me deve de tomar solo la "01/01/2008" ya que la otra todavia no llegamos a esa fecha puesto que estamos en JUNIO DEL 2008. No se si ahora me explico, si no me lo dicen

Espero su valiosa ayuda. por lo pronto GRACIAS.