Ci sono riuscito

Ricapitolo come ho fatto, magari in futuro può tornare utile a qualcun'altro ^^

Ho usato i seguenti imports
codice:
Imports System.Xml
Imports System.Text
Per scrivere...
codice:
 
Sub write_value()

        Dim Writer As New XmlTextWriter("Resources\db.xml", UTF8Encoding.UTF8)

        With Writer

            .Indentation = 2
            .IndentChar = " "

            .WriteStartDocument()

            .WriteStartElement("gruppodati1")

            .WriteElementString("dato1", txtin0.Text)
            .WriteElementString("dato2", txtin1.Text)
            .WriteElementString("dato3", txtin2.Text)

            .WriteEndDocument()
            .Close()
        End With

    End Sub
Per leggere...
codice:
    Sub Reader()

        ds.ReadXml("Resources\db.xml")
        Dim dato1letto As String = ds.Tables("gruppodati1").Rows(0).Item("dato1")
        Dim dato2letto As String = ds.Tables("gruppodati1").Rows(0).Item("dato2")
        Dim dato3letto As String = ds.Tables("gruppodati1").Rows(0).Item("dato3")

        Label1.Text = dato1letto
        Label2.Text = dato2letto
        Label3.Text = dato3letto

End Sub
Per salvare il file xml da codice...
codice:
    Sub save_xml()

        ds.WriteXml("Resources\db.xml")

    End Sub
Ovviamente è necessario dichiarare il DataSet in modo che sia visibile a tutti

codice:
Dim ds As New Data.DataSet