Cargar datos desde un archivo XML en VB.Net en visual estudio 2022

Si eres de esos tipos que quiere cargar datos desde un archivo xml a un control de datagridview en Ide visual estudio 2017
pues no te preocupes aquí les traigo la solución a eso.
programado by: https://www.facebook.com/cristian.patricioizquierdo

Primeramente creamos nuestro archivo xml en mi caso es datos de alumnos.cuyos datos son nombre y apellidos

ojo después de crearlo guárdalo como alumnos.xml
Después de crearlo nuestro xml procederemos a diseñar nuestro formulario.como la imagen siguiente

Codigo fuente es lo siguiente

primero importamos nuestro libreria

Imports System.Xml

codigos siguientes

Public Class Form1

    Dim dsdetalle As DataSet

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        llenarAlumno()

    End Sub

    Private Sub LlenarDS()

        dsdetalle = New DataSet

        dsdetalle.Tables.Add(0)

        With dsdetalle.Tables(0).Columns

            .Add("Nombre", System.Type.GetType("System.String"))

            .Add("Apellidos", System.Type.GetType("System.String"))

        End With

    End Sub

    Private Sub llenarAlumno()

        Dim Xml As XmlDocument

        Dim NodeList As XmlNodeList

        Dim Node As XmlNode

        Dim _DS As New DataSet

        LlenarDS()

        Try

            Xml = New XmlDocument()

            Xml.Load(Application.StartupPath & "\alumnos.xml") ' guarda tu xml en ruta de tu aplicacion. dentro de carpeta debug

            NodeList = Xml.SelectNodes("/alumnos/alumno")

            For Each Node In NodeList

                Dim rw As DataRow = dsdetalle.Tables(0).NewRow

                rw("nombre") = Node.Attributes.GetNamedItem("nombre").Value

                rw("Apellidos") = Node.Attributes.GetNamedItem("Apellidos").Value

                dsdetalle.Tables(0).Rows.Add(rw)

            Next

            ComboBox1.DisplayMember = "nombre"

            ComboBox1.ValueMember = "Apellidos"

            ComboBox1.DataSource = dsdetalle.Tables(0)

            Me.DataGridView1.DataSource = dsdetalle.Tables(0)

        Catch ex As Exception

            MsgBox(ex.GetType.ToString & vbNewLine & ex.Message.ToString)

        Finally

            Console.Read()

        End Try

    End Sub

End Class

Bueno eso es todo espero haber ayudado. cualquier consulta o sugerencias escríbenos en los comentarios
Saludos.