Dim FileName As String = ""
 
        With OpenFileDialog1
            .DefaultExt = "txt"
            .Filter = "TXT Dateien|*.txt"
            .FileName = ""
            .InitialDirectory = SavePath
        End With
 
        Dim res As DialogResult
 
        res = OpenFileDialog1.ShowDialog
 
        If res = DialogResult.Abort Or res = DialogResult.Cancel Then
            Exit Sub
        Else
            Me.Cursor = Cursors.WaitCursor
            txtdokinarbeit.Text = OpenFileDialog1.FileName
            ToolStripStatusLabel1.Text = "Lade Daten aus " & _
              OpenFileDialog1.FileName
            Application.DoEvents()
            DatenLaden(OpenFileDialog1.FileName)
            ToolStripStatusLabel1.Text = "Datensätze: " & dt1.Rows.Count
            Me.Cursor = Cursors.Default
            Application.DoEvents()
        End If

 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