Dim sFilename As String = _
   "g:\vertrieb_abo_mark\worddateien\vbawordvorlagen\abopreis.txt"
 
        Dim sr As New StreamReader(File.OpenRead(sFilename), _
          System.Text.Encoding.Default)
 
        Dim sLine As String
        Dim tab As DataTable = ds.Tables.Add("Abo")
        tab.Columns.Add("ID")
        tab.Columns.Add("Ausgabeort")
        tab.Columns.Add("NormalAboPreis")
        tab.Columns.Add("StudentenAboPreis")
        tab.Columns.Add("SamstagAboPreis")
        Do While Not sr.Peek = -1
            sLine = sr.ReadLine()
            Dim tblLine() As String = sLine.Split(";")
 
            Dim row As DataRow = tab.NewRow()
            row("ID") = tblLine(0)
            row("Ausgabeort") = tblLine(1)
            row("NormalAboPreis") = tblLine(2)
            row("StudentenAboPreis") = tblLine(3)
            row("SamstagAboPreis") = tblLine(4)
            tab.Rows.Add(row)
        Loop
 
        sr.Close()
 
        DataGrid1.DataSource = tab