未发现数据源名称并且未指定默认驱动程序 ?

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/gzgl/inc/pub.asp, 第 123 行-----
做的是个工资管理系统 
ASP , ms sql 
按提示 pub.asp, 第 123 行*************************************************
'中英文转换方法 function GetStr(stringID)
'根据当前语言，得到对应stringID的当前字符串
GetStr=aryCn2us(stringID,languageCode)
end function function getCurName()
'根据当前语言，返回cname或者ename
if language="cn" then
getCurName="cname"
else
getCurName="ename"
end if
end function
'*************************************************private APP_path function getAPP_path()
'返回当前Application URL，注意结尾不带“/”
if isempty(APP_path) then
dim s1,s2
s1=Request.ServerVariables("INSTANCE_META_PATH")
s2=Request.ServerVariables("APPL_MD_PATH")
APP_path=mid(s2,len(s1)+6) '为Application的根路径
end if
getAPP_path=APP_path
end function
Function getADOConnection ()
'得到ADO Connection
dim oConn
set oConn=server.CreateObject("adodb.connection")
oConn.Open Application("ConnectString")
'****上面的这行就是第123行 所提示的错误
set getADOConnection=oConn end Function'*************************************************************大家帮忙解决下 看是什么问题 怎么改哦