Dim ds1 As New DataSet
        ds1.Clear()
        ds1.ReadXml(Application.StartupPath & "\Anbieter.xml")
        Dim i
        Dim anzahl
        Try
            anzahl = ds1.Tables(0).Rows.Count()
        Catch
            anzahl = 0
        End Try
        For i = 0 To anzahl - 1
            Dim URL = ds1.Tables(0).Rows(i).Item("URL").ToString()
            Dim Anzzeichen = ds1.Tables(0).Rows(i).Item("Anzzeichen").ToString()
        Next