Private Sub Einlesen_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        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
    End Sub
 
    Private Sub aktualisieren_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim dr As DataRow
        Dim sw As New StreamWriter( _
          "g:\vertrieb_abo_mark\worddateien\vbawordvorlagen\abopreis.txt", _
          False, System.Text.Encoding.Default)
        Dim tab As DataTable = ds.Tables.Add("abo")
        For Each dr In TAB.Rows
            sw.Write(dr("Id").ToString() + ";")
            sw.Write(dr("Ausgabeort").ToString() + ";")
            sw.Write(dr("NormalAboPreis").ToString() + ";")
            sw.Write(dr("StudentenAboPreis").ToString() + ";")
            sw.Write(dr("SamstagAboPreis").ToString() + ";")
 
            ' ...usw
            sw.WriteLine(dr("Id").ToString())
            sw.WriteLine(dr("Ausgabeort").ToString())
            sw.WriteLine(dr("NormalAboPreis").ToString())
            sw.WriteLine(dr("StudentenAboPreis").ToString())
            sw.WriteLine(dr("SamstagAboPreis").ToString())
        Next
        sw.Close()
    End Sub