'carica i campi dall'xml

                filepath = TBFilexml.Text                            'qui c'è scritto il percorso dell'xml
                Dim DocXML As New Xml.XmlDocument
                DocXML.Load(filepath)                               'qui carico il file XML
                filepath = TBFilexsd.Text                            'qui c'è scritto il percorso dell'xsd
                Dim DocXSD As New DataSet
                DocXSD.ReadXmlSchema(filepath)              'qui carico lo schema dell'XML
                Dim node As Xml.XmlNodeList
                Dim ele As Xml.XmlElement
                node = DocXML.DocumentElement.FirstChild.ChildNodes  'qui carico la prima lista di nodi
                Dim x As Integer
                dt1 = frmProcesso.dgvCampi.DataSource    'associo ad un datatable la datagrid in cui finiranno i campi presi dall'XML

                'aggiunge i campi in dgvcampi

                Dim row1 As DataRow
                For x = 0 To node.Count - 1
                    row1 = dt1.NewRow
                    dt1.Rows.Add(row1)
                    ele = node(x)
                    frmProcesso.dgvCampi.Rows(x).Cells(1).Value = ele.Name.ToString
                Next
                dset2.Tables.Add(frmProcesso.dgvCampi.DataSource)