Private Sub btOpen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btOpen.Click
        Dim ofd As New OpenFileDialog
        Dim sPfad As String
        Dim ds As New System.Data.DataSet("DataSet")
 
        ofd.Filter = "XML files (*.XML)|*.xml|All files (*.*)|*.*"
        ofd.ShowDialog()
        ofd.FilterIndex = 1
        sPfad = ofd.FileName.ToString
 
        If sPfad <> "" Then
            Dim fsRead As New System.IO.FileStream(sPfad, IO.FileMode.Open)
 
            Dim xmlRead As New System.Xml.XmlTextReader(fsRead)
            ds.ReadXml(xmlRead)
            xmlRead.Close()
 
            dGrid.DataSource = ds.Tables(0)
 
        End If
    End Sub

<?xml version="1.0" standalone="yes" ?> 
- <dataset>
- <table>
  <Kanal1>-2444,888</Kanal1> 
  <Zeit>0</Zeit> 
  </table>
- <table>
  <Kanal1>-792,7974</Kanal1> 
  <Zeit>0,00299988314509392</Zeit> 
  </table>
- <table>
  <Kanal1>2137,394</Kanal1> 
  <Zeit>0,00500022433698177</Zeit> 
  </table>
- <table>