udtræk fra database" de sidste"

hej.

hvad gør jeg galt her??  den virker helt ok men den viser de første 5 posteringer i tabellen tblannonce og den skal vise de sidste 5

<%
  Set DATABASE = Server.CreateObject("ADODB.Connection")
  DATABASE.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("/database.mdb") 'Access databasen!

  SQLStr = "SELECT Top 5 * FROM tblannonce ORDER BY Id_annonce ASC"
  Set RSDatabase = DATABASE.Execute(SQLStr)
  If RSDatabase.EOF Then
  %>Databasen er tom!<%
  End If
  If Not RSDatabase.EOF Then
  RSDatabase.MoveFirst
  While Not RSDatabase.EOF
  Response.Write "&nbsp;&nbsp;" +RSDatabase("Tekst") +"&nbsp;&nbsp;&nbsp;"
  RSDatabase.MoveNext
  Wend
  End If

  RSDatabase.Close
  Set RSDatabase = Nothing
%>