Ошибка Server Error (Index was outside the bounds of the array)

 
 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Dim i As Integer
        Dim Requester As UserDetails
        Dim conPubs As SqlConnection
        Dim cmdRead As SqlCommand
        Dim dtrUser As SqlDataReader
        Dim dtrTool As SqlDataReader
        Dim dtrReader As SqlDataReader
        Dim strBaseURL As String = Request.Url.Scheme + "://" + Request.Url.Authority + Request.ApplicationPath.TrimEnd("/") 
        Dim strEQENames As String = "SELECT [FirstName]+ SPACE(1)+ [LastName] AS [Name], [WWID], [EmailName] FROM [Users] WHERE ([Role] = 'EQE')"
 
        Me.Label14.ToolTip = String.Format("Priority Levels:{0}1 - Today or day after. {0}2 - This week. {0}3 - Within 2 weeks. {0}4 - Start date TBD.", Environment.NewLine)
        If IsPostBack Then
            '
 
        Else
            Calendar11.DateTextBox.Text = DateTime.Today.AddDays(14).ToString("MMM dd, yyyy")
            Label11.Text = ""
            lblDateTime.Text = System.DateTime.Today.Date.ToString("MMM dd, yyyy")
            Dim conString As String = ConfigurationManager.ConnectionStrings("alfaultdataConnectionString").ConnectionString
            conPubs = New SqlConnection(conString)
 
            conPubs.Open()
 
            cmdRead = New SqlCommand(strEQENames, conPubs)
            dtrReader = cmdRead.ExecuteReader()
 
            While dtrReader.Read()
                ddlEQE.Items.Add(New ListItem(dtrReader("NAME"), dtrReader("WWID")))
 
            End While
            dtrReader.Close()
 
            Dim cmdToolRead = New SqlCommand("SELECT dbo.tools.toolname, dbo.Users.EmailName As Email FROM  dbo.tools INNER JOIN dbo.Users ON dbo.tools.Toolowner = dbo.Users.WWID WHERE (dbo.tools.isactive = 'Y') ORDER BY dbo.tools.toolname", conPubs)
            dtrTool = cmdToolRead.ExecuteReader()
            While dtrTool.Read()
                ddlEquipment.Items.Add(New ListItem(dtrTool("toolname"), dtrTool("toolname") & "," & dtrTool("Email")))
 
            End While
 
            dtrTool.Close()
 
            cmdRead = New SqlCommand("SELECT     FirstName, LastName, PagerNum, EmailName, WWID, Role" & ControlChars.CrLf & "FROM         dbo.Users" & ControlChars.CrLf & "WHERE     (IDSID = '" & Split(Request.Params("AUTH_USER"), "\")(1) & "')", conPubs)
 
 
            dtrUser = cmdRead.ExecuteReader()
 
            dtrUser.Read()
 
            Requester.FirstName = dtrUser("FirstName")
            Requester.LastName = dtrUser("LastName")
            Requester.Phone = dtrUser("PagerNum")
            Requester.Email = dtrUser("EmailName")
            Requester.WWID = dtrUser("WWID")
            Requester.Role = dtrUser("Role")
            hiddenReqEmail.Value = Requester.Email
            hiddenWWID.Value = Requester.WWID
            dtrUser.Close()
            conPubs.Close()
            txtPhone.Text = Requester.Phone
            ddlPriority.SelectedIndex = 3
            If Requester.Role <> "EQE" And Requester.Role <> "Admin" Then
                ddlStatus.Enabled = False
                ddlPriority.Enabled = False
                ddlEQE.Enabled = False
            End If
            lblRequester.Text = Requester.FirstName & " " & Requester.LastName
            linkEQEReq.NavigateUrl = strBaseURL & "/reqsearch.aspx"
            End If
    End Sub
 
 
 
 

  dtrUser = cmdRead.ExecuteReader()
            dtrUser.Read()

dtrUser = cmdRead.ExecuteReader()
if dtrUser.Read()
........

  dtrUser = cmdRead.ExecuteReader()
             While dtrUser.Read()
             ........

 
Split(Request.Params("AUTH_USER"), "\")(1)