Ukládání položek z ListViewu – Visual Basic – Fórum – Programujte.com

Zdravím, chtěl bych se zeptat, když mám kód:

Dim soubor As New IO.StreamWriter("database.txt")           'otevřít soubor
        For i As Integer = 0 To ListView1.Items.Count - 1           'projít všechny položky seznamu
            soubor.WriteLine(ListView1.Items(i).SubItems(0).Text)   'zapsat datum
            soubor.WriteLine(ListView1.Items(i).SubItems(1).Text)   'zapsat částku
            soubor.WriteLine(ListView1.Items(i).SubItems(2).Text)   'zapsat popis
            soubor.WriteLine(ListView1.Items(i).SubItems(3).Text)   'zapsat nevím co
        Next
        soubor.Close()                  

Tak se mi po zavření vymaže obsah souboru database.txt, prosím kde mám chybu? Za každou odpověď děkuji :)