Visa 3 Nyheter

Hej jag har 2 frågor!

Hur tusan gör jag för att bara de 3 senaste nyheterna skall visas i nyheter.asp?
Och hur gör man för att alla utom de 3 senaste skall visas i arcives.asp

Nyheter.asp

<!--#include file="funktion.inc"-->
<!--#include file="adovbs.inc"-->
<%
On Error Resume Next
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT * FROM nyheter ORDER BY DATUM DESC" 
 
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
DO Until RecSet.EOF OR X = 3
X=X+1
%>
<table width="320" border="0" cellpadding="5" cellspacing="5"> <tr> <td BACKGROUND="graphic/bg_diag.gif"> 
<b><%=RecSet("rubrik")%></b></td></tr><tr><td><%
Response.Write fixa_text(RecSet("text"))
%></td></tr> </table><%
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%> <TABLE WIDTH="320" BORDER="0" CELLPADDING="5" CELLSPACING="5"><TR><TD><a href="javascript:popup1();">&Auml;ldre 
Nyheter</a></TD></TR></TABLE>

Arcives.asp

<%
On Error Resume Next
X=1
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("nyheter.mdb")&";"

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	Addera = "SELECT * FROM nyheter ORDER BY DATUM DESC" 
 
	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

DO Until RecSet.EOF
X=X+1
if X > 1 then
%>
<table width="320" border="0" cellpadding="5" cellspacing="5"> <tr> 
    <td background="graphic/bg_diag.gif"> <b><%=RecSet("rubrik")%></b></td>
  </tr><tr><td><%
Response.Write fixa_text(RecSet("text"))
%></td></tr> </table><%
end if

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

Tacksam för hjälp / MVH Eko