Мой код не работает

---

привет. я написал этот код для извлечения данных из таблицы, где имя похоже на значение gridview, но цикл выполняется только один раз, пока не будет найдена вся запись.

<pre> Dim cmd As New OleDbCommand
        Dim dr As OleDbDataReader
        Dim i As Integer
        cmd.Connection = cn
        For i = 0 To grd.RowCount - 1
            cmd.CommandText = "SELECT status FROM exam_attendance WHERE rollno = " & Val(grd.Item(0, i).Value) & " AND subject = '" & cmbsubject.Text & "' AND ta_date = #" & CType(mskexamdate.Text, Date).ToString("MM/dd/yyyy") & "# AND class = '" & cmbclass.Text & "' AND medium = '" & cmbmedium.Text & "'"
            dr = cmd.ExecuteReader
        If dr.HasRows Then
            While dr.Read
                If dr.Item("status") = "PRESENT" Then
                    grd.Item(4, i).Value = True
                Else
                    grd.Item(4, i).Value = False
                End If
            End While
            End If
        Next

Что я уже пробовал:

я изменил код, но он не работает

---