Ho risolto con il codice seguente solo che adesso ho problemi con la codifica perchè non mi visualizza correttamente i caratteri speciali tipo € e lettere accentate... come faccio a implementare la codifica? da codice?

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim fileExists As Boolean
fileExists = My.Computer.FileSystem.FileExists(Application.Star tupPath + "\software.xsd")
If fileExists = False Then
Dim ds1 As New Data.DataSet
ds1.DataSetName = "Programmi"
ds1.Tables.Add("Software")
ds1.Tables("Software").Columns.Add("ID")
ds1.Tables("Software").Columns("ID").ColumnMapping = MappingType.Attribute
ds1.Tables("Software").Columns.Add("Titolo")
ds1.Tables("Software").Columns.Add("Descrizione")
ds1.Tables("Software").Columns.Add("Versione")
ds1.Tables("Software").Columns.Add("Tipo")
ds1.Tables("Software").Columns.Add("Vendite")
ds1.Tables("Software").Columns.Add("Profitto")
ds1.Tables("Software").Columns.Add("Data")
ds1.WriteXmlSchema(Application.StartupPath + "\software.xsd")
End If
Dim ds As New Data.DataSet
fileExists = My.Computer.FileSystem.FileExists(Application.Star tupPath + "\software.xml")
If fileExists = True Then
ds.ReadXml(Application.StartupPath + "\software.xml")
End If
ds.ReadXmlSchema(Application.StartupPath + "\software.xsd")
Dim dr As DataRow = ds.Tables(0).NewRow
dr("ID") = Me.soft_id.Text
dr("Titolo") = Me.soft_title.Text
dr("Descrizione") = Me.soft_descr.Text
dr("Versione") = Me.soft_ver1.Value & "." & Me.soft_ver2.Value
dr("Tipo") = Me.soft_type.SelectedItem
dr("Vendite") = "0"
dr("Profitto") = "€ 0"
dr("Data") = My.Computer.Clock.LocalTime.Date.ToLongDateString
ds.Tables(0).Rows.Add(dr)
ds.WriteXml(Application.StartupPath + "\software.xml")
End Sub