Select statement skips records

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rs As ADODB.Recordset ' recorde set for the connection 
        Dim sqlstmt As String
        Dim UIN As String
        Dim PIDM As String
        Dim fname As String
        Dim lname As String
        Dim ct As Integer = 0
        Dim temparray() As String = CType(Session.Item("course"), String())
        Call localDBConnectionOpen()
        sqlstmt = "SELECT * FROM Person"
        rs = DBRecordSetNewFast(ConnPortal, sqlstmt)
        ' checks the users infomation to see if its correct
        While Not rs.EOF
            If CWIDT.Text = "admin" Then
                Session("CWID") = Me.CWIDT.Text.Trim
                Response.Redirect("adminlog.aspx")
            End If
            Dim itemsAreNull As Boolean = True
            If Not (temparray Is Nothing) Then
                If (temparray.Length > 0) Then
                    ' Iterate through a collection
                    For Each item As Object In temparray
                        If Not (item Is Nothing) Then
                            itemsAreNull = False
                            Exit For
                        End If
                    Next item
                End If
            End If
 
 
            If (itemsAreNull = True) Then
                Dim sorry As String = "no"
                Session("redu") = sorry
                Response.Redirect("default.aspx")
            End If
            UIN = DBGetField(rs, "UIN")
            PIDM = DBGetField(rs, "PIDM")
            If CWIDT.Text = UIN Then
 
                Session("CWID") = Me.CWIDT.Text.Trim
                fname = DBGetField(rs, "FIRSTNAME")
                lname = DBGetField(rs, "LASTNAME")
                Session("FIRSTNAME") = fname
                Session("LASTNAME") = lname
                Response.Redirect("auth.aspx")
            Else
                rs.MoveNext()
                msg.Text = "UIN is incorrect"
            End If
 
        End While
        rs = DBRecordSetDestroy(rs)
        Call localDBConnectionClose()
    End Sub

Select allOpen in new window