求高手指教：select方法返回的结果集rs的.text报错

Question

这是程序代码 
Private Sub Command1_Click()    If txtuname.Text = "" Then
    MsgBox "用户名不能为空，请输入用户名！", vbCritical, "提示"
    Else
        rs.MoveFirst
        rs.Find "uname='" & Trim(txtuname.Text) & "'"
            If rs.EOF Then
                txtuname.Text = ""
                txtupwd.Text = ""
                txtuname.SetFocus
                MsgBox "用户名输入错误，请选择！", vbCritical, "提示"
                Else
                    If txtupwd.Text = "" Then
                    MsgBox "密码不能为空，请输入密码！", vbctitical, "提示"
                        txtupwd.Text = ""
                        txtupwd.SetFocus
                        ElseIf rs.Fields("upwd") = txtupwd.Text Then
                            Select Case rs.Fields("righ")
                                Case 0
                                    If cmbright.Text = "管理员" Then
                                    MsgBox "管理员已成功登录！", vbExclamation, "提示"
                                    Else
                                    MsgBox "您没有此权限！", vbOKOnly + vbCritical, "提示"
                                    End If
                                Case 1
                                    If cmbright.Text = "教师" Then
                                    MsgBox "教师已成功登陆！", vbExclamation, "提示"
                                    Else
                                    MsgBox "您没有此权限！", vbOKOnly + vbCritical, "提示"
                                    End If
                                Case 2
                                    If cmbright.Text = "学生" Then
                                    MsgBox "学生已成功登录！", vbExclamation, "提示"
                                    Else
                                    MsgBox "您没有此权限！", vbOKOnly + vbCritical, "提示"
                                    End If
                            End Select
                        Else
                            MsgBox ("密码输入错误，请重新输入！"), vbCritical, "提示"
                            txtpwd.Text = ""
                            txtpwd.SetFocus
                        End If
                    End If
                End If
End SubPrivate Sub Command2_Click()
    Unload Me
End SubPrivate Sub Form_Load()
    CenterForm Me
    
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=login;Data Source=.\mssql2008"
    rs.Open "select * from login ", conn, 2, 2
    
    cmbright.AddItem "管理员"
    cmbright.AddItem "教师"
    cmbright.AddItem "学生"
End Sub数据库连接写在公共的模块里面
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Sub CenterForm(chile As Form)
Dim dw As Integer
Dim dh As Integer
dw = Screen.Width - chile.Width
dh = Screen.Height - chile.Height
chile.Top = dh / 2
chile.Left = dw / 2
End Sub
求高手指教：select方法返回的结果集rs的.text报错 我应该怎样改

Answer 1

txtuname.Text 报错
编译错误
为找到方法或者数据成员

Answer 2

在窗体上放一个 TextBox，名称改为 txtuname。

Answer 3

你窗体上输入用户名的文本框不是 txtuname。
要么改控件名要么改代码。

Answer 4

报的错误是 txtuname.Text

Answer 5

属性对话框显示的是 txtuname(0)，说明这是个控件数组。
下面找到 index 属性，把值 0 清除就可以了。

Answer 6

前一个问题貌似没问题了
可是有来了一个费解的问题提示说Private Sub Command1_Click()为定义变量求解释啊

Answer 7

通常是编译错误太多，会导致错误指示位置不准确。
先将代码全注释起来，逐段放开，F5全编译，修正全部错误。
记得要将Options对话框，General页下的 Compile On Demand 的勾选去掉。

Answer 8

这个是不是挂的马啊？ @bcrun， 版主？