错误 '80004005'未发现数据源名称并且未指定默认驱动程序cod_ado.inc，行 4

 <%
sub cod_AdoOpen(objConnection, rsCoursesList,dsn,rss)
    Set objConnection = Server.CreateObject("ADODB.Connection")
    objConnection.Open dsn
    Set rsCoursesList = Server.CreateObject("ADODB.Recordset")
    rsCoursesList.ActiveConnection = objConnection  
    rsCoursesList.CursorLocation = adUseClient
    rsCoursesList.CursorType = adOpenForwardOnly
    rsCoursesList.LockType = adLockReadOnly
    rsCoursesList.Source = rss
    rsCoursesList.Open
end sub
sub cod_AdoClose(objConnection, rsCoursesList)
    rsCoursesList.close
    objConnection.close
    set rsCoursesList = nothing
    set objConnection = nothing
end sub
%>

系统是WIN8 64位 ACCESS也是64位 DW是32位

求教是什么问题引起的啊

dsn有什么内容，驱动指定错误了吧。。怎么是cod_ado.inc

可能是以下两种情况，你试试看：
1、检查配数据源了没有 如果没有配 那就在控制面板里打开管理工具- 数据源odbc 然后配一下试试

2、如果已经配数据源了 说明你的数据源名称和程序里写的名称不一致 所以系统还是找不到这个数据源

你数据源估计没有配置正确，你引用的信息是否都匹配上了

在控制面板里打开管理工具- 数据源odbc 然后配一下试试

在控制面板里打开管理工具- 数据源odbc 然后配一下试试