Private Sub lookup_lesen()
        ds.Tables.Add("Lookuptabelle")
        ds.Tables("Lookuptabelle").Columns.Add("ean")
        ds.Tables("Lookuptabelle").Columns.Add("artikelnummer")
        ds.Tables("Lookuptabelle").Columns.Add("bezeichnung1")
        ds.Tables("Lookuptabelle").Columns.Add("bezeichnung2")
        lookupdatei = "\inventur\inventur.txt"
        Dim myReader As New System.IO.StreamReader(lookupdatei)
        Dim mystring As String
 
        mystring = myReader.ReadLine
 
        While myReader.Peek <> -1
            mystring = myReader.ReadLine
            ds.Tables("Lookuptabelle").Rows.Add(mystring.Split(lookuptrenner))
        End While
        DataGrid1.DataSource = ds.Tables("Lookuptabelle")
        myReader.Close()
    End Sub