使用datareader VB.NET和SQL Server显示数据时出错

Question

我尝试在登录成功后显示用户角色，但是，我无法获得我想要的行为。我是一个初学者，这里是我现在正在使用的代码片段。

 Sub LoginSistema()
    Try
        AbrirConexion()
        Comando = New SqlCommand("select * from tbl_usuarioslogin where username = '" & frmLoginWindow.TextBox1.Text & "' and password = '" & frmLoginWindow.TextBox2.Text & "'")
        Comando.CommandType = CommandType.Text
        Comando.Connection = Conexion
        Lector = Comando.ExecuteReader()
        If Lector.HasRows Then
            Lector.Read()
            If Lector.GetValue(1).ToString = "Victor" Then
                MsgBox("Bienvenido :) " + Lector(8).ToString())
                CerrarConexion()
                Lector.Close()
            Else
                MsgBox("Error al iniciar sesion en el Sistema.")
                CerrarConexion()
                Lector.Close()
            End If
        Else
            MsgBox("No hay datos leidos de la base de datos.")
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

见ya，