مشكلة فى استدعاء الفاتورة للتعديل عليها

كود :
   Sub SHOW_DETAILES(ByVal CODE_)

        '=========== ربط رأس الفاتورة =============

        Dim DT As New DataTable

        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM SEL_HED WHERE BUYCODE = val('" & CODE_ & "')", con)

        DA.Fill(DT)

        If DT.Rows.Count = 0 Then

            MessageBox.Show("يرجى التأكد من رقم الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else

            Dim DR = DT.Rows(0)

            TXTID.Text = DR!BUYCODE

            BUYTYPE.Text = DR!BUYTYPE

            TXTN_SUPL.Text = DR!SUPL

            DateTimePicker1.Value = DR!SEL_DATE

            TXTMan.Text = DR!SEL_MAN

            NOTES.Text = DR!NOTES

            TXT_TOTLA2.Text = DR!TOTAL

            TXTINVO.Text = DR!ID_INVO



            'Dim DS As New DataSet

            Dim DT_ As New DataTable

            DT_.Clear()

            '=========== ربط تفاصيل الفاتورة =============

            DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE = val('" & CODE_ & "')", con)

            'DS = New DataSet

            DA.Fill(DT_)

            'DT = DS.Tables(0)

            'For I = 0 To DT.Rows.Count - 1

            '    dgv.Rows.Add()

            '    dgv.Rows(I).Cells(0).Value = DT.Rows(I).Item("Code")

            '    dgv.Rows(I).Cells(1).Value = DT.Rows(I).Item("Name")

            '    dgv.Rows(I).Cells(2).Value = DT.Rows(I).Item("Price")

            '    dgv.Rows(I).Cells(3).Value = DT.Rows(I).Item("Unit")

            '    dgv.Rows(I).Cells(4).Value = DT.Rows(I).Item("Quant")

            '    dgv.Rows(I).Cells(5).Value = DT.Rows(I).Item("Cost_Unit")

            '    dgv.Rows(I).Cells(6).Value = DT.Rows(I).Item("Total")

            '    dgv.Rows(I).Cells(7).Value = DT.Rows(I).Item("DS")

            '    dgv.Rows(I).Cells(8).Value = DT.Rows(I).Item("Tax")

            '    dgv.Rows(I).Cells(9).Value = DT.Rows(I).Item("Stock")

            '    dgv.Rows(I).Cells(10).Value = DT.Rows(I).Item("Stock")

            'Next

            dgv.DataSource = DT_

            dgv.Refresh()

            BUTTDELETE.Enabled = True

            BUTTSAVE.Enabled = False

        End If

    End Sub