奇怪问题！connection可以创建，但是不能打开！

[harezgq]

程序如下，各位高手帮忙看看！
<% @Language = "VBScript" %>
<%
dim conn
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
Response.Write "创建ADO对象失败"
Response.End
else
conn.open "webdb","sa",""
if err.number<>0 then
err.clear
set conn=nothing
Response.Write "SQL数据库连接失败，请检查数据库是否存在，以及odbc是否存在"
Response.End
end if
end if
set rs=conn.execute("select count(*) as a1 from addr")
%>
<%=rs("a1")%>
<%rs.close
conn.close
set rs=nothing
set conn=nothing
%>
执行到conn.open "webdb","sa",""时出错,
错误类型：
ADODB.Connection (0x800A0E7A)
/test.asp, 第 11 行

[zxwcq]

conn.open "dsn=webdb;uid=sa;pwd=;database='数据库名'"

[gottazhang]

conn.open "dsn=webdb"

[harezgq]

to zxwcq:
你的写法正确，我的也没错，因为以前一直运行正常。
同样的程序在另外一台机器上没问题，我的机器前一段时间中了尼姆达病毒，是不是这个原因.可是我卸掉iis重装,问题依旧。

[harezgq]

各位大虾，帮忙看看，有分相送。