asp.net รบกวนดูโค้ดให้หน่อยนะคะ เกี่ยวกับ gridview อยากให้ทุกข้อมูลที่ตรงกับเงือนไขแสดงใน gridview แต่มันขึ้นให้แค่แถวเดียวค่ะ

   Dim con1 As New SqlConnection("Data Source=.\SQLExpress;Initial Catalog=newCredit;Integrated Security=True")
        con1.Open()
        Dim sql2 As String = "SELECT no_request, fname, lname, idmem, moneyneed,end_date, time_pay, date_contract, status FROM request WHERE status = 'อนุมัติ'"
        Dim commm1 As New SqlCommand(sql2, con1)
        Dim dr2 As SqlDataReader = commm1.ExecuteReader()
        If dr2.HasRows Then
            dr2.Read()
            Session("enddate") = dr2("end_date")
            Session("idmemm") = dr2("idmem")
            Session("moneyneed") = dr2("moneyneed")
            Session("fnamem") = dr2("fname")
            Session("lnamem") = dr2("lname")
            Session("timepay") = dr2("time_pay")
            Session("datecon") = dr2("date_contract")
            GridView1.DataSource = dr2
            GridView1.DataBind()

            Dim cona As New SqlConnection("Data Source=.\SQLExpress;Initial Catalog=newCredit;Integrated Security=True")
            cona.Open()
            Dim sql1 As String
            sql1 = "SELECT no_request,COUNT(historyPay.no_request)+1  as timepayhis FROM historyPay GROUP BY no_request"
            Dim commm As New SqlCommand(sql1, cona)
            Dim dr1 As SqlDataReader = commm.ExecuteReader()
            If dr1.HasRows Then
                dr1.Read()
                Session("timepayhis") = dr1("timepayhis")
                Dim timee As Integer = Session("timepayhis")
                'คิดวันที่ต้องจ่ายแต่ละเดือน(งวด)
                'งวดที่นี้ต้องจ่ายวันที่ข้างล่างนี้ 
                Dim mustpaydate As Date = DateAdd(DateInterval.Month, timee, Session("datecon"))
                TextBox3.Text = DateAdd(DateInterval.Month, timee, Date.Now.Date)
                Dim summustpay As Integer = DateDiff(DateInterval.Month, mustpaydate, Date.Now.Date)
                'ถ้าน้อยกว่า 3 เดือน ไม่ต้องคิดดอกเบี้ย
                If summustpay <= 3 Then
                    Dim fine As Double = 0
                Else
                    'เกิน 3 เดือนให้พิมพ์ใบแจ้งเตือนให้มาชำระหนี้
                    Dim moresummustpay As Integer = summustpay - 3
                    Dim fine As Double = moresummustpay * Session("interestPerMonth")
                    Dim totallast As Double = Session("sum_payMonth") + (fine + 100)
                    MsgBox("มีรายการต้องพิมพ์ใบแจ้งหนี้", MsgBoxStyle.OkOnly, "เกินกำหนด")
                End If
            End If
        End If
        con1.Close()