VB.NET ขอโค๊ด Listview ที่สามารถอ่านค่าลำดับถัดไปหน่อยครับ

  Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ''Set view property
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

        'Add column header
        ListView1.Columns.Add("ProductName", 100)
        ListView1.Columns.Add("Price", 70)
        ListView1.Columns.Add("Quantity", 70)

        'Add items in the listview
        Dim arr(3) As String
        Dim itm As ListViewItem

        'Add first item
        arr(0) = "product_1"
        arr(1) = "100"
        arr(2) = "10"
        itm = New ListViewItem(arr)
        ListView1.Items.Add(itm)

        'Add second item
        arr(0) = "product_2"
        arr(1) = "200"
        arr(2) = "20"
        itm = New ListViewItem(arr)
        ListView1.Items.Add(itm)

        Dim sumValue As Integer = 0

        Label1.Text = ListView1.Items.Count
        ' Loop ListView 
        For Each item As ListViewItem In Me.ListView1.Items
            ' เอา Array ตัวที่ 2 Item(1) ดูตรงหัว Columns มันจะนับเริ่มตั้งแต่ 0
            sumValue = sumValue + Convert.ToInt32(item.SubItems.Item(1).Text)
        Next

        TextBox1.Text = sumValue.ToString()

    End Sub

select productcode,productname,borrow,balance,(balance-borrow) as Test
from TableXXX