slt à tous

voilà je travaille sur vb 2008 j'ai un problème d'ajout de ligne dans une fichier, voilà l'idée je veux écrire ou plutôt ajouter une ligne dans une fichier texte existante j'ai essayé de le faire mais chaque fois il écrase le contenu du fichier et met seulement le nouveau contenu voilà un code que j'ai essayé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sw As StreamWriter
        dat = DateTimePicker2.Value.Date.ToString.Substring(0, 10)
        temps = DateTimePicker1.Value.TimeOfDay.ToString.Substring(0, 5)
        Dim ch_acce As String = "C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\WindowsApplicationCalendrier\WindowsApplicationCalendrier\bin\Debug\memo.txt "
        Try
            sw = File.CreateText(ch_acce)
            sw.WriteLine(txtnom.Text + " " + temps)
            sw.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString(), "Erreur fichier", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
merci de m'aider