Private ds As New DataSet
Private bs As New BindingSource
 
Private XML_File As String = "C:\Users\...\VKR_Profiluebersicht.xml"
 
Private Sub VKR_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
   ds.Clear()
   ds.ReadXml(XML_File)
   DGV1.DataSource = New BindingSource(ds, "Quadratrohr")
 
   FormatDGV1(DGV1)
 
   bs.DataSource = New BindingSource(ds, "Quadratrohr")
 
   Me.TB_MB.DataBindings.Add(New Binding("Text", bs, "MB", True))
   Me.TB_MH.DataBindings.Add(New Binding("Text", bs, "MH", True))
   Me.TB_MW.DataBindings.Add(New Binding("Text", bs, "MW", True))
 
End Sub

VG

Dirk