Private ds As New DataSet
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ds.ReadXml("C:\Users\Daves\Test\data.xml")
 
        DataGridView1.DataSource = New BindingSource(ds, "Quadratrohr") ' ( 
        ' Default)
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) _
      Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            DataGridView1.DataSource = New BindingSource(ds, "Rechteckrohr")
        Else
            DataGridView1.DataSource = New BindingSource(ds, "Quadratrohr")
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist