Question

我的vb程序连上数据库后总提示用户名和密码错误

具体的源代码如下，数据库原来是sql的，被我改成了ACCESS的，是这个原因吗 我的数据库里的用户名和密码都没有错啊？难道还是链接方面的问题? '验证用户身份 Private Function VerifyUser() As Boolean On Error GoTo ErrorHandler Dim strSQL As String '构建检索用户信息的查询语句 strSQL = "SELECT * FROM tblUser " strSQL = strSQL & "WHERE UserName='" & txt(1) & "' AND UserPwd='" & txt(2) & "'" '获取记录 Set RsAdo = New ADODB.Recordset RsAdo.Open strSQL, AdoCon, adOpenStatic, adLockReadOnly '如果结果集为空，则用户身份非法 If RsAdo.EOF Then MsgBox "用户名或密码错误，请重新输入！", vbCritical, "用户登录" txt(1).SetFocus Exit Function End If '如果结果集不为空，则用户合法， '此时获取与用户名对应的用户信息，用来控制权限 UserDept = RsAdo("DeptUserIn") UserName = RsAdo("TrueName") CloseRsAdo VerifyUser = True Exit Function ErrorHandler: MsgBox "验证用户信息出错", vbCritical, "出现错误" Exit Function End Function

Answer 1

AdoCon是否设好用户和密码