Dim fr As StreamReader
            Dim FileString As String
            FileString = ""
            Try
                fr = New System.IO.StreamReader(path)
                Do
                    FileString = fr.ReadLine
                Loop Until (FileString Is Nothing)
            Finally
                If fr IsNot Nothing Then
                    fr.Close()
                End If
            End Try

"19","123456","14","Taschenrechner G222 silber ....
 
"18","123457","14","Rachensperrer","Rachensperrer aus Edelstahl, 
   rostfrei ...

Ciao

J?rgen

PS: geht nicht gibt's nicht