Visual Basic

    Private Function LoadTabData() As Boolean
        'We need to get the items for the frmLOL from the table Materials and load 
        'them into the text boxes in sequence. If user fills out anything we need to 
        'store it using the GUID stored in the tag property

        'SELECT Materials.MaterialsID, Materials.Type, Materials.Sequence, Materials.Material
        'FROM(Materials)
        'ORDER BY Materials.Type, Materials.Sequence;
        Try
            gblConn = New OleDbConnection(JWIConnStr)
            Dim daMaterial As New OleDbDataAdapter
            Dim dsMaterial As New DataSet
            Dim mySelectQuery As String = "SELECT MaterialsID, Type, Sequence, Material " & _
                "FROM Materials " & _
                "ORDER BY Type, Sequence;"
            Dim myConnection As New OleDbConnection(JWIConnStr)
            Dim myCommand As New OleDbCommand(mySelectQuery, myConnection)
            myConnection.Open()
            daMaterial.SelectCommand = myCommand
            daMaterial.Fill(dsMaterial)
            If Not dsMaterial.Tables(0).Rows.Count > 0 Then
                MsgBox("Unable to locate MATERIALS. Please Cancel and retry later", MsgBoxStyle.OkOnly)
                Exit Function
            Else 'at least one record shows 
                Dim recCount As Integer
                Dim dstbl As New DataTable
                daMaterial.Fill(dstbl)
                recCount = dsMaterial.Tables(0).Rows.Count
                Dim rowNdx As Integer
                Dim lblNdx As Integer
                rowNdx = 0 'Set to zero index value for the dsMaterial tbl 
                lblNdx = 1
                For Each Row In dstbl.Rows
                    If rowNdx = recCount Then
                        Exit For
                    End If
                    'Dim Labels As Label() = ControlArrayUtils.getControlArray(Me, "lblRods")
                    Dim lblRods As Label() = ControlArrayUtils.getControlArray(Me, "lblRods")
                    'Dim lblRods() As Label
                    'lblRods = ControlArrayUtils.getControlArray(Me, "Label")
                    'lblRods = ControlArrayUtils.getControlArray(Me, "lblRods")

                    lblRods(lblNdx).Tag = dsMaterial.Tables(0).Rows(rowNdx)("MaterialsID").ToString()
                    lblRods(lblNdx).Text = dsMaterial.Tables(0).Rows(rowNdx)("Material").ToString()
                    rowNdx = rowNdx + 1 'keep track of where we are at 
                    lblNdx = lblNdx + 1

                Next

            End If
        Catch ex As Exception
            Debug.Print(MsgBox(ex.ToString))
        End Try

    End Function

Public Class ControlArrayUtils

    'Converts same type of controls on a form to a control 
    'array by using the notation ControlName_1, ControlName_2, 
    'where the _ can be replaced by any separator string

    Public Shared Function getControlArray( _
         ByVal frm As Windows.Forms.Form, _
         ByVal controlName As String, _
         Optional ByVal separator As String = "_") As System.Array

        Dim i As Short
        Dim startOfIndex As Short
        Dim alist As New ArrayList
        Dim controlType As System.Type
        Dim ctl As System.Windows.Forms.Control
        Dim ctrls() As System.Windows.Forms.Control
        Dim strSuffix As String
        Dim maxIndex As Short = -1 'Default


        'Loop through all controls, looking for 
        'controls with the matching name pattern
        'Find the highest indexed control

        For Each ctl In frm.Controls
            startOfIndex = ctl.Name.ToLower.IndexOf( _
                        controlName.ToLower & separator)
            If startOfIndex = 0 Then
                'If startOfIndex = -1 Then
                strSuffix = ctl.Name.Substring(controlName.Length)
                'Check that the suffix is an
                ' integer (index of the array)
                If IsInteger(strSuffix) Then
                    If Val(strSuffix) > maxIndex Then _
                       maxIndex = Val(strSuffix) 'Find the highest 
                    'indexed Element
                End If
            End If
        Next ctl

        'Add to the list of controls in correct order
        If maxIndex > -1 Then

            For i = 0 To maxIndex
                Dim aControl As Control = _
                  getControlFromName(frm, controlName, i, separator)
                If Not (aControl Is Nothing) Then
                    'Save the object Type (uses the last 
                    'control found as the Type)
                    controlType = aControl.GetType
                End If
                alist.Add(aControl)
            Next
        End If
        Return alist.ToArray(controlType)
    End Function

    'Converts any type of like named controls on a form 
    'to a control array by using the notation ControlName_1, 
    'ControlName_2, where the _ can be replaced by any 
    'separator string

    Public Shared Function getMixedControlArray( _
       ByVal frm As Windows.Forms.Form, ByVal controlName As String, _
       Optional ByVal separator As String = "") As Control()

        Dim i As Short
        Dim startOfIndex As Short
        Dim alist As New ArrayList
        Dim controlType As System.Type
        Dim ctl As System.Windows.Forms.Control
        Dim ctrls() As System.Windows.Forms.Control
        Dim strSuffix As String
        Dim maxIndex As Short = -1 'Default

        'Loop through all controls, looking for controls 
        'with the matching name pattern
        'Find the highest indexed control

        For Each ctl In frm.Controls
            startOfIndex = ctl.Name.ToLower.IndexOf( _
                          controlName.ToLower & separator)
            If startOfIndex = 0 Then
                strSuffix = ctl.Name.Substring(controlName.Length)
                'Check that the suffix is an integer 
                '(index of the array)
                If IsInteger(strSuffix) Then
                    If Val(strSuffix) > maxIndex Then _
                       maxIndex = Val(strSuffix) 'Find the highest 
                    'indexed Element
                End If
            End If
        Next ctl

        'Add to the list of controls in correct order
        If maxIndex > -1 Then
            For i = 0 To maxIndex
                Dim aControl As Control = getControlFromName(frm, _
                                         controlName, i, separator)
                alist.Add(aControl)
            Next
        End If
        Return alist.ToArray(GetType(Control))
    End Function

    Private Shared Function getControlFromName( _
           ByRef frm As Windows.Forms.Form, _
           ByVal controlName As String, ByVal index As Short, _
           ByVal separator As String) As System.Windows.Forms.Control
        controlName = controlName & separator & index
        For Each ctl As Control In frm.Controls
            If String.Compare(ctl.Name, controlName, True) = 0 Then
                Return ctl
            End If
        Next ctl
        Return Nothing 'Could not find this control by name
    End Function

    Private Shared Function IsInteger(ByVal Value As String) As Boolean
        If Value = "" Then Return False
        For Each chr As Char In Value
            If Not Char.IsDigit(chr) Then
                Return False
            End If
        Next
        Return True
    End Function

End Class

Imports System.Data.SqlClient
Public Class ListViewData
    Public Sub FillListView(ByRef MyListView As ListView, _
                            ByRef myData As SqlDataReader)
        Dim lvwColumn As ColumnHeader
        Dim itmListItem As ListViewItem

        Dim shtCntr As Short

        MyListView.Clear()
        For shtCntr = 0 To myData.FieldCount() - 1
            'If shtCntr = 1 Then Continue For
            lvwColumn = New ColumnHeader()
            lvwColumn.Text = myData.GetName(shtCntr)
            MyListView.Columns.Add(lvwColumn)
            If shtCntr = 0 Then lvwColumn.Width = 125
            If shtCntr = 1 Then lvwColumn.Width = 300
        Next

        Do While myData.Read
            itmListItem = New ListViewItem()
            itmListItem.Text = myData(0)

            For shtCntr = 1 To myData.FieldCount() - 1
                'If shtCntr = 1 Then Continue For
                If myData.IsDBNull(shtCntr) Then
                    itmListItem.SubItems.Add("")
                Else
                    itmListItem.SubItems.Add(myData.GetString(shtCntr))
                End If
            Next shtCntr

            MyListView.Items.Add(itmListItem)
        Loop
    End Sub
End Class

Private Sub Usage_ListItem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim con As SqlConnection = New SqlConnection(constr)
    Dim query As String

    query = "SELECT ItemCode [Item Code], ItemName[Item Name] FROM IC_ITEMS"

    con.Open()
    Dim comtext As SqlCommand = New SqlCommand()
    comtext.Connection = con

    comtext.CommandText = query
    Dim reader As SqlDataReader
    reader = comtext.ExecuteReader
    Dim testlist As ListViewData = New ListViewData
    testlist.FillListView(ListView1, reader)
    comtext = Nothing
    con.Close()
End Sub