Procedimiento - Variable en SQL

[CABEZOTA]

Sub CuentaRegistros (Tablas)
Dim rutaBD, connBD, rs, cantreg
rutaBD = Server.MapPath("database\bbdd.mdb")
set connBD = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset" )
connBD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutaBD & ";"
SQL = "SELECT * FROM [" & Tablas & "]"
rs.Open SQL, connBD, 3, 1
cantreg = rs.RecordCount
Response.Write cantreg
rs.close
set rs = Nothing
connBD.close
set connBD = Nothing
End Sub

Prová asi que tiene que funcionar, los problemas que podés tener son:
1º Si el nombre de la tabla tiene espacios en blanco no la va a encontrar si no ponés los [] .
2º Si no incluiste las variables de ADOVBS.inc no podés usar los nombres como adLockReadOnly o los otros. Por eso es mejor usar los números.

Por último no te olvides de liberar la memoria que usas para crear los objetos utilizando el set obj = nothing

Espero que te sirva

Chau ;)