hent kun 25 sidste

Hvordan får jeg denne side til kun at hente de sidste 25 indtastninger i databasen?
......

  <%
  Dim objConn
  Dim objRec

  Set objConn = Server.CreateObject (\"ADODB.Connection\")
  Set objRec = Server.CreateObject (\"ADODB.Recordset\")

objConn.Open strConnect
   
  objRec.Open \"Data\", objConn, 0, 1, 2
%>
<!-- start tabel -->
<div align=\"center\">
  <table border=1 cellpadding=\"1\" cellspacing=\"2\" bordercolor=\"#CCCCCC\" width=\"500\" bgcolor=\"#CCCCCC\">
    <tr bgcolor=\"#000000\" bordercolor=\"#666666\">
      <td>
        <div align=\"center\"><b><font color=\"#FFFFFF\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Title
          </font></b></div>
      <td>
        <div align=\"center\"><b><font color=\"#FFFFFF\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Nickname
          </font></b></div>
     
      <td>
        <div align=\"center\"><b><font color=\"#FFFFFF\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Mail
          </font></b></div>
         
            <td>
        <div align=\"center\"><b><font color=\"#FFFFFF\" face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Date</font></b></div>
    </tr>
    <%
  Do While Not objRec.EOF
    Response.Write \"<tr bgcolor=#FFFFFF bordercolor=#666666><td>\" & \"<a href=\" & objRec(\"link\") & \" target=_blank>\" & objRec(\"title\") & \"</a></td>\"
    Response.Write \"<td>\" & objRec(\"handle\") & \"</td>\"
    Response.Write \"<td><a href=mailto:\" & objRec(\"mail\") & \">Send</a></td>\"
    Response.Write \"<td>\" & objRec(\"dato\") & \"</td>\"
    objRec.MoveNext
  Loop

  objRec.Close
  objConn.Close
  Set objRec = Nothing
  Set objConn = Nothing
%>
.....