Dim reader2 As SqlDataReader = cData.ExecuteSelect2DataReader("SELECT" & _
  "PropertyInfoName, AdvancedProperties FROM Reflection WHERE ControlType = '" _
  & tType.Name.ToString() & "' OR ControlType = '" & _
  tType.BaseType.Name.ToString() & "'")
 
        While reader2.Read()
            If Not reader2.IsDBNull(1) Then
                For Each piPropertyInfo In tType.GetProperties()
                    If piPropertyInfo.Name = reader2.GetString(1) Then   _
                      '>> Überprüfe, ob Eigenschaft in der Datenbank enthalten ist
                        Dim oUnknown As Object = cCtrl
                        Dim piUnknown As PropertyInfo = _
                          oUnknown.GetType.GetProperty(reader2.GetString(1))
                        Dim collection As IEnumerable = TryCast( _
                        piUnknown.GetValue(oUnknown, Nothing), IEnumerable)
                        If collection IsNot Nothing Then
                            Dim i As Integer = 1
                            For Each oItem As Object In collection
                                Dim tItemType As Type = oItem.GetType()
                                For Each piItem As PropertyInfo In _
                                  tItemType.GetProperties()
                                    If piItem.Name = reader2.GetString(0) Then  _
                                     '>> Überprüfe, ob Eigenschaft in der 
                                    ' Datenbank enthalten ist
                                        dr("ControlName") = cCtrl.Name.ToString( _
                                          ) & "-Item & " & i
                                        dr("ParentFormName") = _
                                        cCtrl.FindForm.Name.ToString()
                                        dr("DefaultText") = piItem.GetValue( _
                                        oItem, Nothing).ToString()
                                        i += 1
                                        Try
                                            dt.Rows.Add(dr)
                                        Catch ex As Exception
                                        End Try
 
                                      End If
                                Next
                            Next
                        End If
                    End If
                Next
            End If
        End While
        reader2.Close()