PRUEBA ALGO ASI:
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")
<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>