ORDER BY Id DESC

[indis]

Lo unico que yo quiero es que salgan de primero los ultimo que se grabo en la base de datos. Hasta ahora me sale de ultimo el que grabe de ultimo.
Mi base de datos se llama afiliados y mi tabla afiliados, tiene Id, Nombre, apellido y mensaje.
Que tengo malo?

-----------
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))

TBL.Open "afiliados" ,DB
SQL="SELECT * FROM afiliados ORDER BY Id DESC"
While NOT TBL.EOF
%>
-----------------
si puse descendiente, porque no me sale?

SQL="SELECT * FROM afiliados ORDER BY Id DESC"


gracias, soy muy nuevo en esto.