Function getDataset(ByRef myObjectCollection As Collection, ByVal _
      myObjectType As Type)
        ' Struktur extrahieren        
        Dim propCollection As System.Reflection.PropertyInfo() = _
          myObjectType.GetProperties()
        Dim prop As System.Reflection.PropertyInfo
        Dim dataset As New Data.DataSet()
        Dim tableName As String = myObjectType.ToString.Substring( _
          myObjectType.ToString.LastIndexOf(".") + 1)
        dataset.Tables.Add(tableName)
        For Each prop In propCollection
            Dim newCol As New Data.DataColumn()
            newCol.ColumnName = prop.Name
            newCol.DataType = prop.PropertyType
            dataset.Tables(tableName).Columns.Add(newCol)
        Next
        'Daten extrahieren        
        Dim item As Object
        Dim newRow As System.Data.DataRow
        Dim currProp As System.Reflection.PropertyInfo
        For Each item In myObjectCollection.Data
            newRow = dataset.Tables(0).NewRow
            For Each prop In propCollection
                currProp = item.GetType.GetProperty(prop.Name)
                newRow(prop.Name) = currProp.GetValue(item, New Object() {})
            Next
            dataset.Tables(0).Rows.Add(newRow)
        Next
        Return dataset
    End Function