contabilizar registros devueltos

[XaRoD]

Hola,

si solo quieres el numero de registros la manera más rápida de hacerlo sería:
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pedido.mdb"))
Dim rsNumReg, numReg
Set rsNumReg=dbConn.Execute("SELECT COUNT(*) AS nreg FROM tu_tabla")
numReg=rsNumReg("nReg")

Salu2