Lo puedes hacer ahi mismo...
despues del conn.execute...
conn.close
Set conn = Server.CreateObject("ADODB.Connection")
set Rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data/SISTEMA.mdb"))
sSQL=" Select top 1 * from registro order by id desc"
Rs.Open sSQL, 3,3
'No tienes para que escribir todo el codigo dentro de el codigo ASP, lo cierro...
%>
<p> <%=rs("codigo")%></p>
<p> <%=rs("Nombre")%></p>
<p> <%=rs("Apellidos")%></p>
<%
'si no colocas esto igual deberia funcionar
rs.close
Conn = Nothing
%>
bueno el arte de HTML es tuyo... slds.