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