Mira hace unas horas tenia el mismo error
Tenia esta rutina
<%
Const DsnSocio = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:www.anro.com.arwebspaceelsubteanroanro.com.ardbSocios.mdb;Persist Security Info=False"
okNro = session("OkNro")
EsSocio = session("TEsSocio")
Set cnn = Server.CreateObject ("ADODB.Connection")
Set rst = Server.CreateObject ("ADODB.Recordset")
cnn.open DsnSocio
sqltxt = "Select * from TabSocios where Nro = " & okNro
rst.Open sqltxt,cnn,3,3
rst("EsSocio") = EsSocio
%>
.........<%=sqltxt%>...<%=okNro%>...<%=EsSocio%>
<%
rst.update
rst.Close
set rst = Nothing
cnn.Close
set cnn = Nothing
%> </span>
Cambie por
Const DsnSocios = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:www.anro.com.arwebspaceelsubteanroanro.com.ardbSocios.mdb;Persist Security Info=False"
cnn.open DsnSocio
Y no tuve problemas.
Supongo que no cerré el Const DsnSocio , en alguna pagina, por eso me acusa el mismo error que a vos.
Proba este cambio y tratemos de averiguar cómo se puede detectar los DSN usados y no cerrados (Existe algún software?)