能力不行，从网上找的程序，自己尝试着改动，但还是有问题，乱的很，求高手帮忙！
貌似找到的是连接access数据库，但我自己的是SQL Server2000
代码：<%
dim sql
dim rs
%>
<%
dim pass
pass=session("PASSWORD1")
username=request("name")
psw=request("pwd")
newpsw=request("newpwd")
renewpsw=request("rnewpwd")
If username="" or psw="" or newpsw="" or renewpsw="" Then
response.write "<script>alert('请重新输入完整的信息！');history.back();</script>"
End If
If newpsw <> renewpsw Then
response.write "<script>alert('新密码与确认新密码不一致，请重新输入！');history.back();</script>"
End If
dim Strconn1
Strconn1="Driver={SQL Server};Server=127.0.0.1;Uid=dd;Pwd=11;DataBase=ni"
set conn=server.CreateObject("ADODB.connection")
conn.open Strconn1
set rs=server.CreateObject("adodb.recordset")
sql="select * from myform where PASSWORD1='"&pws&"' and username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<script>alert('您输入的原密码错误，请返回！');history.back();</script>"
response.end
else
sql="update myform set PASSWORD1 = '" &newpsw & "' where USERNAME='" & username& "'"
conn.execute sql
End If %>
<script language="vbscript">
alert("信息修改成功！！！！")
window.location.href = "psw.asp"
</script>
现在问题在rs.open sql,conn,1,1
错误类型：ODBC 驱动程序不支持所需的属性