La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  61484 - ERROR EN LA CONECCION CON ACCESS
Autor:  lis ramirez
hola miren tengo un problema con mi coneccion, la revise ya varias veces y es correcta pero a la hora de ejecutarla sale el sig error:

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access]Error general No se puede abrir la clave 'Temporary (volatile) Ace DSN for process 0x8c0 Thread 0x364 DBC 0x7324044 Jet' del Registro.
/esta es/contrasena.asp, línea 18

Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; InfoPath.2)

Página:
GET /esta es/contrasena.asp

ESTE ES MI CODIGO:

<%
Dim oConn, rs, sql
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")

oConn.open ("DRIVER={Microsoft Access Driver(*.mdb, *.accdb)}; DBQ="& Server.MapPath("bd_inventario1.accdb"))

sql="select*from inventario;"
rs.Open sql, oConn

do until rs.EOF
Response.Write("no_inventario")
Response.Write(rs.fields("txtno_inventario")&"
")
Response.Write("descripcion")
Response.Write(rs.fields("txtdescripcion")&"
")
Response.Write("um")
Response.Write(rs.fields("txtum")&"
")
Response.Write("cantidad")
Response.Write(rs.fields("txtcantidad")&"
")
Response.Write("no_serie")
Response.Write(rs.fields("txtno_serie")&"
")
Response.Write("marca")
Response.Write(rs.fields("txtmarca")&"
")
Response.Write("
")
rs.MoveNext
loop

%>
  Respuesta:  Wilfredo
No veo tu código para ver como tal la conexión vía dsn, pero puedes hacerlo vía cadena de conexión, ejemplo para sql server y access 
Set cn = Server.CreateObject("ADODB.Connection")

cn.Provider = "sqloledb"

'para sql server

ProvStr = "Server=IP_O_Nombre_Servidor;Database=Nombre_Base_Datos;UID=usuario_Base_Datos;PWD=clave_usuario_Base_Datos;"

'para access

ProvStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Ruta_fisica_del_MDB_en_DiscoNombre_Base_Datos;Persist Security Info=false;"

    cn.CommandTimeout = 1000

    cn.ConnectionTimeout = 1000

cn.Open ProvStr