vUser = Trim(txtUser)
这里看下是不是有错误值，比如#N/A，他可以变成文本#N/A，但运行时就会报错类型不匹配。
如果RS没定义的话，报错不是类型不匹配，会说未定义
Set rs = SQLQuery(SQLStr)
rs是什么？
SQLQuery()是什么？如果是函数的话，返回的是什么类型？
返回值的类型和rs（或rs的默认属性）的类型不一致导致该错误！
rs没有定义吧，你需要先把rs定义成： dim rs as adodb.recordsetting
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024