Private Sub Index_e_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim line, zline(), pfad, o As String
        Dim i As Integer
        Dim zeile As DataRow
        Lokal1.Clear()
        OleDbDataAdapter1.Fill(Lokal1)
        line = eingang()
        zline = Split(line, "|")
        pfad = zline(1) + "\" + zline(2) + "\DOC_CD\Database\index.dat"
        Dim sr As New IO.StreamReader(pfad)
        Do
            zeile = Lokal1.Tables("TB_1").NewRow()
            line = sr.ReadLine
            If line = "" Then Exit Do
            zline = Split(line, ";")
            Lokal1.TB_1.NewTB_1Row()
            zeile.ItemArray() = zline
            Lokal1.Tables("TB_1").Rows.Add(zeile)
        Loop
        OleDbDataAdapter1.Update(Lokal1, "TB_1")
End Sub