求救 急急！！！！！！

我sqldataread 读取数据库中的数据的时候为什么有一条不能显示？
请高手帮忙
相关代码:
'===================================================================================
Dim conn As SqlConnection = New SqlConnection(StrConn)
        Dim command1 As SqlCommand = New SqlCommand("selectcout_user", conn)
        command1.CommandType = CommandType.StoredProcedure
       
        conn.Open()
        Dim mydr1 As SqlDataReader = command1.ExecuteReader()
        If mydr1.Read() Then
            icount = mydr1("nums")
        Else
            icount = 0
        End If
        mydr1.Close()
        conn.Close()
  If icount = 0 Or icount > ArrayCount Then 
                      'ArrayCount全局定义 public ArrayCount as integer =100
            Exit Sub
        Else
 Dim sqls = "select * from article_user "
            Dim command2 As SqlCommand = New SqlCommand(sqls, conn)
            conn.Open()
            Dim mydr2 As SqlDataReader = command2.ExecuteReader()
            If mydr2.Read() Then
 Do While mydr2.Read()                    ArrayUserlist(i, 0) = Trim(mydr2.GetInt32(0))  'user_id
                    ArrayUserlist(i, 1) = Trim(mydr2.GetString(1).ToString) 'username
                    ArrayUserlist(i, 2) = Trim(mydr2.GetString(2).ToString)  'userpassword
                    ArrayUserlist(i, 3) = Trim(mydr2("is_man"))   'is_man
                    ArrayUserlist(i, 4) = Trim(mydr2("sex")) 'sex
                    ArrayUserlist(i, 5) = Trim(mydr2("regdate").ToString) '注册日期
                    ArrayUserlist(i, 6) = Trim(mydr2("lasttime").ToString) '登录日期 
                    ArrayUserlist(i, 7) = mydr2("regip").ToString  'regip
                    ArrayUserlist(i, 8) = mydr2("fb_num") 'fb_num
                    ArrayUserlist(i, 9) = mydr2("sh_num") 'sh_num
                    ArrayUserlist(i, 10) = Trim(mydr2("truename").ToString) 'truename
                    ArrayUserlist(i, 11) = Trim(mydr2("oicq").ToString) 'oicq
                    ArrayUserlist(i, 12) = Trim(mydr2("email").ToString) 'email
                    ArrayUserlist(i, 13) = Trim(mydr2("homepage").ToString) 'homepage
                    ArrayUserlist(i, 14) = Trim(mydr2("jm").ToString) 'jm
                    ArrayUserlist(i, 15) = Trim(mydr2("lmqx").ToString) 'lmqx
                    ArrayUserlist(i, 16) = Trim(mydr2("funcqx").ToString) 'funcqx
                    ArrayUserlist(i, 17) = Trim(mydr2("lock")) 'lock
                    Label1.Text = Label1.Text + "|" + mydr2.GetInt32(0).ToString
                    ' Next
                    i = i + 1
                Loop
  End If
            mydr2.Close()
            conn.Close()
        End If
'====================================================================
很奇怪的是在label1中显示的内容总比数据库中的数据少一条.