Selezionare e contare nel db

[Mattatore2]

Vorrei contare gli "idstati" (uguali) che si trovano nel database "dbmoneta" e nella tabella "tabmonete" e poi mostrarli...con questo codice non ci riesco:

<%
Dim conn3
Dim rs3
Dim sSql3
Dim numeropezzi
Set conn3 = Server.CreateObject("ADODB.Connection")
conn3.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbmonete.mdb")
sSql3 = "SELECT COUNT(*) AS Numeropezzitotale FROM tabstati WHERE idstato="&id&";"
Set rs3 = Server.CreateObject("ADODB.Recordset")
numeropezzi.CursorType = 0
numeropezzi.CursorLocation = 2
numeropezzi.LockType = 1
numeropezzi.Open()
Response.Write numeropezzi.field("Numeropezzitotale")
%>
<%
rs3.Close
Set rs3 = Nothing
conn3.Close
Set conn3 = Nothing
%

[Mattatore2]

qualcuno mi aiuti ...........grazie