text file writing

[Grunt]

how come this is not working?

Dim bookname As String = "\books.txt"
        Dim objFileStream As New FileStream(Application.StartupPath & bookname, FileMode.Create, FileAccess.Write)
        Dim Addbook As New StreamWriter(objFileStream)
        txtName.Text = Names
        txtAddress.Text = Address
        Addbook.WriteLine(Names & Address)
        Addbook.Close()

it creates the file, but does not write anything