Perdonen, no recuerdo si es el cursor o el cerrojo el que causa este efecto, pero prueben con ambos en 3.
Código:
sql="SpSys_estad_acre_t '1/1/1996', '1/1/2060', 22"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
Rstotal= rs.RecordCount
response.write ("Registros: "&Rstotal)
Saludos