Dim mnUserType As Integer

Private Sub cboUserType_Click()
mnUserType = cboUserType.ListIndex
End Sub
Private Sub cboUserType_Change()
mnUserType = cboUserType.ListIndex
End Sub

Private Sub cmdCancel_Click()
   If MsgBox("请确认是否退出系统?", vbYesNo) = vbYes Then End
End Sub

Private Sub cmdOK_Click()
  Dim user As String, pwd As String
    user = txtUser
    pwd = txtPwd
    Dim r As New ADODB.Recordset
    Set r = DataEnv.rssqlSeek    [color=000080]{这里显示424错误}[/color]    Dim strSQL As String
    Select Case mnUserType
        Case 0:
            strSQL = "select * from admin where name='" & user & "' and pwd='" & pwd & "'"
        Case 1:
            strSQL = "select * from student where name='" & user & "' and serial='" & pwd & "'"
    End Select
    
    On Error Resume Next
    If r.State = adStateOpen Then r.Close
    r.Open strSQL
    Static nTryCount As Integer
    If r.EOF Then
      MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
      txtUser.SetFocus
      txtUser.SelStart = 0
      txtUser.SelLength = Len(txtUser)
      nTryCount = nTryCount + 1
      If nTryCount >= 3 Then
         MsgBox "您无权操作本系统!再见！", vbCritical, "无权限"
         Unload Me
      End If
    Else
      Load MDIMain
      With MDIMain
        .mnUserType = mnUserType
        .msUserName = pwd
        .Show
      End With
      Unload Me
    End If

End Sub

Private Sub Form_Load()
cboUserType.ListIndex = 0
End Sub

  到这里显示424错误"0Set r = DataEnv.rssqlSeek"是什么原因呢？
  各位高手帮忙解决一下·