Me.Adodc1.Recordset.Filter = "用户身份='" & Trim() & "'" & _
                          " and 用户名='" & Trim() & "'" & _
                          " and 密码='" & Trim(Me.txtuserpwd) & "'"

  If Me.Adodc1.Recordset.RecordCount > 0 Then
     yhsf = Trim()
     yhm = Trim()
     MsgBox "欢迎进入本系统！", vbOKOnly, "正确提示"
     Unload Me
     frmmain.Show 1
     
  Else
     MsgBox "用户身份不合法，请重新输入！", vbOKOnly, "错误提示"
     
  End If

用户登录验证