Tælle records

Hvorfor virker dette ikke?
Jeg vil gerne have den til at tælle hvor
mange records der er i tabellen.

<%
set AdoConn = Server.CreateObject(\"ADODB.Connection\")
set AdoRec = Server.CreateObject(\"ADODB.Recordset\")

AdoConn.Open(\"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\") & \"\")

strsql = \"SELECT*FROM alt\"

set rs = AdoConn.Execute(strsql)
AdoRec.Open strsql, AdoConn

response.write AdoRec.RecordCount

AdoRec.Close
AdoConn.Close

set AdoRec = Nothing
set AdoConn = Nothing
%>