Smide en top 5 på en datatable

Fot at mit site ikke skal blive overbelastet cacher jeg de seneste 30 nyheder. Dette fungerer perfekt :-). Når den enkelte nyhed så vælges skal der forneden kunne vises de seneste 5 nyheder. Hvordan kan jeg smide en TOP 5 på det udtryk jeg har her:

Dim udtryk as string = "portid='" & port & "' AND nyhedsynlig='1' "
Dim Drs As DataRow()
Dim Dr as Datarow   
Drs = Cache("nyhed30").Tables.Item(0).Select(udtryk)
if Drs.length > 0 then
for each Dr in Drs
next
end if

Håber det er til at forstå