Jag hade gjort så här
strSQL = "SELECT * FROM tabell ORDER BY [datum] DESC"
Set objRs = objConn.Execute(strSQL)
If Not objRs.EOF Then
arrPoster = objRS.GetRows
intAntalPoster = Ubound(arrPoster, 2)
Else
'Det fanns inga poster
End If
'stäng objConn och objRs
response.Write "Det finns "&intAntalPoster&" i databasen" & vbCrLf
Sen får du ta fram den första posten i arrayen och visa den .......
Vill du läsa mer om GetRows och arrays är det bara att söka lite eller kolla här
....
mvh icaaq