Välja var xml-fil ska sparas

Jag använder koden nedan för att exportera info från en databas till en XML-fil. Allt fungerar finfint, men det ska ju alltid till med det här lilla extra. ;)

Med koden nedan så sparas XML-filen under c:\windows\system32 och det är ju inte säkert att alla som ska exportera (och skriva ner en fil på hd:n) har rättigheter till den mappen. Hur kan jag välja var XML-filen ska sparas?

En petitess till: Rubriken eller huvudnoden i XML-dokumentet blir namngivet som NewDataSet. Hur kan jag ändra den namngivningen?

Koden:

Dim dsa As new DataSet()

    'procedur för att exportera info om anställda i databasen till en xml-fil
    Sub anstallda_xml()

        Dim SQL As string = "SELECT * FROM tbl_anstallda ORDER BY Id"
        Dim Cn As new OleDbConnection(CnStr)

        'skapa en OleDbDataAdapter och fyll Datasetet
        Dim ODA As new OleDbDataAdapter(SQL, Cn)
        ODA.Fill(dsa, "tbl_anstallda")

        Viewstate("Dataset") = dsa.Tables("tbl_anstallda").DefaultView

        'frigör resurser använda av OleDbDataAdaptern
        ODA.Dispose()

        Dim filename As String = "anstallda.xml"

        'Skapa ett FileStream-objekt
        Dim myFileStream As new FileStream(filename,FileMode.Create)

        'Skapa en XmlTextWriter med filströmmen
        Dim myXmlWriter As new System.Xml.XmlTextWriter(myFileStream,Encoding.Unicode)

        'Skriv till XML-filen med WriteXml-metoden
        dsa.WriteXml(myXmlWriter)

        'stäng objekt
        myXmlWriter.Close()

        lbl.Text = "XML-filen är skapad!"

    End Sub

Mycket tacksam för hjälp. :D