Hola.. mira.. la verdad no se como lo estes haciendo pero porque no pruebas con lo siguiente...??
Código:
varios = "Select * from Algo "
openstr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("BD.mdb")
set objconn = server.CreateObject("adodb.connection")
set mirs = server.createobject("adodb.recordset")
objconn.Open openstr
miRs.open varios, objconn
total = miRs.Recordcount
response.write total
Saludos y suerte..!!
<html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=80 width=200><BR></embed></center></html>