دورة إنشاء برنامج مبيعات متكامل

PHP كود :
Sub SHOW_DETAILES(ByVal CODE_ As String)
        '=========== ربط رأس الفاتورة =============
        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
            Quant.Text = DR!Total_QNT
            Dim DS As New DataSet

            '=========== ربط تفاصيل الفاتورة =============
            DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE =  val('" & CODE_ & "')", con)
            DS = New DataSet
            DA.Fill(DS)
            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("QTY")
                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")
            Next
            BUTTDELETE.Enabled = True
            BUTTSAVE.Enabled = False

        End If
    End Sub