For u As Integer = 0 To RSSFeeds.Count - 1
                Dim x As New DataSet
                x = RSSFeeds_tmp(u)
                Dim y As New DataSet
                y = RSSFeeds(u)
                If Not x.Tables Is y.Tables Then
                    x.DataSetName = "new"
                    RSSFeeds(u) = x
                    Changes = 1
                End If
            Next

 Dim _objDs As New DataSet
                _objDs.ReadXml(s)
                RSSFeeds.Add(_objDs)