Private Sub DatenLaden(ByVal FileName As String)
 
 
        dt1.Clear()
 
        Dim sr As New System.IO.StreamReader(FileName)
        Dim Zeile As String = Nothing
        Dim i As Integer = 0
 
        Dim arr() As String = Nothing
 
        Do While Not sr.EndOfStream
            Zeile = sr.ReadLine()
 
            arr = Zeile.Split(",")
            If Not arr(0).Contains("Seriennummer") Then
 
                Dim newRow As DataRow = dt1.NewRow
                i = i + 1
 
                newRow("ID") = i
                newRow("Seriennummer") = arr(0)
                newRow("Bauteil") = arr(1)
                newRow("Baudatum") = arr(2)
                newRow("Status") = String.Empty
                newRow("Fahrgestellnummer") = String.Empty
 
                dt1.Rows.Add(newRow)
 
            End If
        Loop
 
        sr.Close()
 
        Application.DoEvents()
 
    End Sub

<?xml version="1.0" standalone="true"?>
 
-<DocumentElement>
 
 
-<erbru>
 
<ID>1</ID>
 
<Seriennummer>AHEF4W3</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:01</Baudatum>
 
<Status/>
 
<Fahrgestellnummer/>
 
</erbru>
 
 
-<erbru>
 
<ID>2</ID>
 
<Seriennummer>AHEF4W4</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:01</Baudatum>
 
<Status/>
 
<Fahrgestellnummer/>
 
</erbru>
 
 
+<erbru>
 
 
-<erbru>
 
<ID>4</ID>
 
<Seriennummer>AHEF4W8</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:32</Baudatum>
 
<Status/>
 
<Fahrgestellnummer/>
 
</erbru>
 
 
-<erbru>
 
<ID>5</ID>
 
<Seriennummer>AHEF4WB</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:58</Baudatum>
 
<Status/>
 
<Fahrgestellnummer/>
 
</erbru>
 
 
-<erbru>
 
<ID>6</ID>
 
<Seriennummer>AHEF4WC</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:58</Baudatum>
 
<Status/>
 
<Fahrgestellnummer/>
 
</erbru>

<?xml version="1.0" standalone="true"?>
 
-<DocumentElement>
 
 
-<erbru>
 
<ID>1</ID>
 
<Seriennummer>AHEF4W3</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:01</Baudatum>
 
</erbru>
 
 
-<erbru>
 
<ID>2</ID>
 
<Seriennummer>AHEF4W4</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:01</Baudatum>
 
</erbru>
 
 
-<erbru>
 
<ID>3</ID>
 
<Seriennummer>AHEF4W7</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:32</Baudatum>
 
</erbru>
 
 
-<erbru>
 
<ID>4</ID>
 
<Seriennummer>AHEF4W8</Seriennummer>
 
<Bauteil>5Q0512013JG</Bauteil>
 
<Baudatum>15.05.201723:35:32</Baudatum>
 
</erbru>