kan det gøres smartere ?

jeg skal have skrevet antal poster der er i en database (eller det sidste ID nummer)

Nu gør jeg sådan, men kan det gøres smartere ?

--
<%
antal=0
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from database"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>

<%
' Gennemløb Recordset (rs) med en løkke
while not rs.eof
%>
<%
antal=antal+1
%>

<%
' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
wend

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>