Dim sr2 As New IO.StreamReader(strWinVerz & "\WDLISTE.DAT")
Dim i As Integer
Dim array() As Sting
        Do
            For i = 0 To 6
                array(i) = sr2.ReadLine
            Next
            If IsNothing(array(i)) Then
                sr2.Close()
                sr2.Dispose()
                Exit Do
            End If
            dgHistory.Rows.Add(array(0), array(1), array(2), array(3), array( _
              4), array(5), array(6))
        Loop