Start of load datatable into a form

    Private Sub cmbPartNumber_SelectedValueChanged(sender As Object, e As EventArgs) Handles cmbPartNumber.SelectedValueChanged
        Dim cchk As CheckBox
        If loaded Then
            If Me.cmbPartNumber.SelectedIndex > -1 Then
                'Debug.Print(Me.cmbPartNumber.SelectedIndex.ToString)
                Me.Testing_Lookup_GroupHeaderTableAdapter.FillByPnAndGr(Me.Assy_TestingDataSet.Testing_Lookup_GroupHeader, Me.cmbPartNumber.Text, 1)
                For Each r As DataRow In Me.Assy_TestingDataSet.Testing_Lookup_GroupHeader.Rows
                    For Each c As DataColumn In r.Table.Columns
                        Try

                            If r.IsNull(c) Then
                                'Debug.Print("Column " & c.ColumnName & " Is null")

                            ElseIf c.DataType = GetType(Boolean) Then
                                If Me.Controls.ContainsKey("chk" & c.ColumnName) Then
                                    cchk = CType(Me.Controls("chk" & c.ColumnName), CheckBox)
                                    cchk.Checked = r.Field(Of Boolean)(c.ColumnName)
                                End If
                            ElseIf c.DataType = GetType(String) Or c.DataType = GetType(Double) Or c.DataType = GetType(Integer) Then
                                If c.ColumnName = "holdnext" Or c.ColumnName = "DSP_NOTE" Then
                                    If Me.Controls.ContainsKey("chk" & c.ColumnName) Then
                                        cchk = CType(Me.Controls("chk" & c.ColumnName), CheckBox)
                                        cchk.Checked = (r.Field(Of String)(c.ColumnName) = "Y")
                                    End If
                                Else
                                    If Me.Controls.ContainsKey("txt" & c.ColumnName) Then
                                        Me.Controls("txt" & c.ColumnName).Text = r.Field(Of Object)(c.ColumnName).ToString
                                    End If
                                End If
                            End If
                        Catch ex As Exception
                            'MessageBox.Show("Source: " & ex.Source & ControlChars.NewLine & "Message: " & ex.Message & ControlChars.NewLine & "StackTrace: " & ex.StackTrace)
                            Debug.Print("Source: " & ex.Source & ControlChars.NewLine & "Message: " & ex.Message & ControlChars.NewLine & "StackTrace: " & ex.StackTrace)
                        End Try
                    Next
                Next
            End If
        End If
    End Sub