Private Sub cmdOK_Click()

txtUserName.Text = Trim(txtUserName.Text)
If txtUserName.Text = "" Then
   MsgBox " 请输入用户名！"
   Exit Sub
End If

txtPassword.Text = Trim(txtPassword.Text)
If txtPassword.Text = "" Then
   MsgBox " 请输入密码！"
   Exit Sub
End If

Dim msg, style, title, response

Dim Conn As New ADODB.Connection     '声明并实例化连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的操作
Dim Rst As New ADODB.Recordset       '声明并实例化数据记录集对象 -- 用来返回数据记录集，并对记录的操作

'执行 ADODB.Connection对象的Open方法，完成数据库的连接
Conn.Open SQLConnecTionString1

'执行 ADODB.Recordset对象的Open方法，获得记录集
Rst.Open "Select * From 用户 Where 用户名='" & txtUserName.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Not (Rst.RecordCount >= 1) Then
   MsgBox "数据表记录为0！"
   End
End If

If Not (Rst.EOF And Rst.BOF) Then
   '检查正确的密码
   If Rst.Fields("密码") = txtPassword.Text Then
      Unload Me
      Form1.Show
   Else
      msg = "错误的登录密码！" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
      style = vbRetryCancel + vbExclamation + vbDefaultButton1
      title = "提示"
      response = MsgBox(msg, style, title)
      If response = vbRetry Then
         Exit Sub
      ElseIf response = vbCancel Then
         End
      End If
   End If
Else
   msg = "错误的用户名！" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
      style = vbRetryCancel + vbExclamation + vbDefaultButton1
      title = "提示"
      response = MsgBox(msg, style, title)
      If response = vbRetry Then
         Exit Sub
      ElseIf response = vbCancel Then
         End
      End If
End If

End Sub

新人求帮助

看看数据库连接是不是有问题啊，主要检查数据库和vb里的内容对应是否一致。

Private Sub Command1_Click()
Dim tempDb As clsDB
    Dim i As Integer
    Dim Bok As Boolean
    Set tempDb = New clsDB
  If Text2.Text <> "" Then
        tempDb.GetClientData "SELECT * FROM 试验用户表"
      For i = 1 To tempDb.DBcnt
        If tempDb.Db("用户姓名") = Text2.Text And tempDb.Db("用户密码") = Text3.Text Then
        CurTester = Text1.Text
        CurWordQl = tempDb.Db("用户权限")
            Bok = True
        End If
        tempDb.Db.MoveNext
      Next
  End If
  If Bok = True Then
  Dim f As Form
  Dim FF As Boolean
  For Each f In Forms
  If f.Name = "frmApp" Then
   ' MsgBox frmMsg窗体已经加载!
    FF = True
  End If
  Next
   If FF = False Then
      Unload dl1form
      
    Load phjm
   phjm.Visible = True
   Else
     Unload frmLogin
    frmApp.UserLongin
   End If
    Else
  Label1.Caption = "用户名和密码不正确，请重新输入"
  End If

End Sub

这是我写的一个登陆界面，你可以参考下啊

静态分析代码基本上没有问题。现在就是与数据库配合问题。

另外，你的代码优化方面有问题。
1、数据库连接应该只有一个。
connn 应该定义在 模块文件中 全局对象，并且在 程序初始化过程中连接好来。然后在整个程序运行过程中，都是直接调用，而不再去连接和断开的。
而 Recordset 就是在每次使用时重新生成一个。这个没错。

2、为了防止SQL注入，
Rst.Open "Select * From 用户 Where 用户名='" & txtUserName.Text & "'", Conn, adOpenKeyset, adLockPessimistic
而你这句中，如果猜得出第一个用户的密码，那么可以使用 SQL 注入的方式而不需要知道第一个用户的用户名即可以进入系统。
在输入txtUserName中输入 a' or '1'='1，就得到了：
Select * From 用户 Where 用户名='a' or '1'='1'

解决办法，要么防注入，要么二次核对。

二次核对，
   If Rst.Fields("用户名") = txtUserName.Text and Rst.Fields("密码") = txtPassword.Text Then
      Unload Me
      Form1.Show
这样就使用注入方式的无法通过二次核对。

3、提示
If Not (Rst.RecordCount >= 1) Then
   MsgBox "数据表记录为0！"
   End
End If
这里应该提示 用户名错误，而不是数据表记录为0

4、你下面有判断，也有提示，
msg = "错误的用户名！" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
所以，第3点属于重复判断。
另外，我没去详细看你的 记录表打开时的参数，所以不知道你的记录表是不是支持 RecordCount 属性。

----------------------
4楼的代码，很好。