照书上打的，数据库也连接成功，是Access数据库

Private Sub cmdOK_Click()
    Adodc1.RecordSource = "select * from User where UserName='" + txtUserName.Text + "'"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
    If txtPassword = Adodc1.Recordset.Fields("Password") Then
        '将代码放在这里传递
        '成功到 calling 函数
        '设置全局变量时最容易的
        LoginSucceeded = True
        MsgBox "登录成功"
        
        Me.Hide
    Else
        MsgBox "无效的密码，请重试!", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
    Else
        MsgBox "无此用户"
    End If
End Sub

谢谢楼上几位，我把User和UserName括起来就正常了，但还有个问题VB调试运行取消后自动切换到搜狗输入法，怎么让它不切换

谢谢各位，我现在不想用ADO控件改用ADO对象操作，代码改成了这样，能正常运行但运行结果不对了，弹出“无此用户”，之前用ADO控件时运行结果是正常的，请各位再帮忙看看代码问题出在哪

Private Sub cmdOK_Click()
    Dim adoRs As New ADODB.Recordset
    adoRs.ActiveConnection = adoCon
    adoRs.Open "select * from [User] where [UserName]='" + txtUserName.Text + "'"
    If adoRs.RecordCount > 0 Then
    If txtPassword = adoRs.Fields("Password") Then
        '将代码放在这里传递
        '成功到 calling 函数
        '设置全局变量时最容易的
        LoginSucceeded = True
        MsgBox "登录成功"
        Me.Hide
        MDIFrmMain.Show
    Else
        MsgBox "无效的密码，请重试!", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
    Else
        MsgBox "无此用户"
    End If
End Sub

[此贴子已经被作者于2016-10-31 15:11编辑过]

谢谢，照你说的第二点我试了运行结果正确了，但我还是不明白之前错在哪了，你能详细说明一下吗

不是啊，默认是美式键盘，只要运行程序弹出登录成功对话框后就自己切换到中文输入法，醉了

[此贴子已经被作者于2016-11-2 09:55编辑过]

窗体是VB工程菜单里添加的登录窗体，其它代码是自己写的，就是显示登陆成功后打开主窗体前切换的，我想原因就在这个窗体里
我看了看VB自己生成的登录窗口里txtPassword文本框的IMEMode属性值是3，但我修改不了它的属性值，这是怎么回事

[此贴子已经被作者于2016-11-3 08:42编辑过]

原来是这样，谢谢！

那我这输入法自己切换的问题还有办法解决吗

我发现我把光标移到登录窗体的密码输入文本框那输入法就切换了，应该就是密码输入框造成的，可文本框设置了PasswordChar属性，IMEMode属性无法修改

这个我知道，我试着把PasswordChar属性去掉并把IMEMode属性设为0，这回运行时光标移动到文本框不切输入法了，不过去掉PasswordChar属性就无法起到密码框的输入效果了，现在这个问题是不是没有两全的办法了，

[此贴子已经被作者于2016-11-3 17:02编辑过]