Try
            '*****************************   Streamreader
 
            Dim myReader As New System.IO.StreamReader(Me.TextBox1.Text)
            Dim mystring As String
            mystring = myReader.ReadLine
 
            '*****************************   Datenzeilen durchlaufen
            While myReader.Peek <> -1
 
                '*****************************   Datenzeile lesen
                mystring = myReader.ReadLine
 
                '*****************************   Zeile aufteilen und in Spalten 
                ' abfüllen
                'MessageBox.Show(mystring)
                Me.My Dataset.Tables("TBIMPORT_PDA").Rows.Add(mystring.Split( _
                  Chr(9)))
            End While
 
            '*****************************   Update
            Try
             Me.TBIMPORT_PDATableAdapter.Update(MyDataset.TBIMPORT_PDA)
            Catch ex As Exception
              MsgBox(ex.Message)
            End Try
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler beim Lesen der csv-Datei:", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try