Dim dt As DataTable
    Dim dt2 As DataTable
    Dim index As Integer = 0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If MsgBox("Möchten Sie eine XML-Datei laden?", MsgBoxStyle.YesNo) = _
        MsgBoxResult.Yes _
            Then
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
            Then
                dt = New DataTable("Daten")
                ' Fehler: DataTable unterstützt keine Schemadeduktion von Xml.
                dt.ReadXml(OpenFileDialog1.FileName)
            Else
...