求助： Excel 做个登陆界面，连接SQL2005验证密码

shenj1

服务器名：10.192.206.26  数据库名：The Wind  数据表名： user， 里面有两列： 第一列是UID，第二列是PWD
我想做一个VBA登陆界面，用户名输入 textbox1， 密码输入 textbox2， 当用户名对应的UID，密码对应PWD，UID和PWD的某行与用户名密码内容一致时，密码正确。

能否帮我写段代码？谢谢。

Renco

  Dim cnn As New ADODB.Connection
    Dim cnnStr As String
    Dim Rst As New ADODB.Recordset

cnnStr = "DRIVER=SQL Server;" _
        & "UID=sa;" _
        & "PWD=[SQL2005的sa用户密码];" _
        & "SERVER=10.192.206.26;" _
        & "DATABASE=The Wind"
cnn.ConnectionString = cnnStr

    cnn.Open


cnnStr="Select [user].* From [User] Where [User].UID='" & [输入的用户名] & "' And  [User].PWD='" & [输入的密码] & "'"
'注意哦，如查要区分密码的大小写对比时要写成
'cnnStr="Select [user].* From [User] Where [User].UID='" & [输入的用户名] & "' And  [User].PWD COLLATE Chinese_PRC_CS_AS='" & [输入的密码] & "'"
'或者在SQL2005里直接把PWD列设成 Chinese_PRC_CS_AS 排序规则

rst.open cnnStr, cnn,adOpenKeyset, adLockReadOnly

if rst.eof=true then

msgbox "用户不存在或密码错误!"
else
msgbox "登录成功!"

end if
rst.close
cnn.close

set rst=nothing
set cnn=nothing

shenj1

我是win7系统+Excel2010
执行到这步出错。
rst.open cnnStr, cnn,adOpenKeyset, adLockReadOnly

不知道怎么回事。

Renco

什么错误提示啊？？？，不要说问题只说个结果，要把相关图示产，要示例上传上来，才能有效的去解决，有些问题的提示，在网上也可以搜索到的，也可以自行解决，

somepeople

留印学习，谢谢！