Private Sub dt1Initialisieren()
 
        With dt1
            With dt1
                Dim IDCol As DataColumn = dt1.Columns.Add("ID", Type.GetType( _
                  "System.Int32"))
                IDCol.AllowDBNull = False
                IDCol.Unique = True
 
                .Columns.Add("Pos.", Type.GetType("System.String"))
                .Columns.Add("Druck", Type.GetType("System.String"))
                .Columns.Add("InventarNr", Type.GetType("System.String"))
                .Columns.Add("Spez.-Bemi-Nr.", Type.GetType("System.String"))
                .Columns.Add("Bezeichnung", Type.GetType("System.String"))
                .Columns.Add("vorhanden", Type.GetType("System.String"))
                .Columns.Add("-Datum", Type.GetType("System.String"))
                .Columns.Add("-TAKT-Ort-", Type.GetType("System.String"))
                .Columns.Add("Kst.:", Type.GetType("System.String"))
                .Columns.Add("Typ", Type.GetType("System.String"))
                .Columns.Add("Teilenummer", Type.GetType("System.String"))
                .Columns.Add("IDNr", Type.GetType("System.String"))
                .Columns.Add("FabrikNr", Type.GetType("System.String"))
                .TableName = "Checkliste"
 
            End With
        End With
 
        Dim primaryKey(1) As DataColumn
        primaryKey(1) = dt1.Columns("ID")
        dt1.PrimaryKey = primaryKey
 
    End Sub
 
    Private Sub DatenLaden(ByVal FileName As String)
        '0 Pos.
        '1 Druck
        '2 Inventar-Nr.
        '3 Spez.-Bemi-Nr.
        '4 Bezeichnung
        '5 vorhanden ?
        'X -Datum
        '6 gefunden an TAKT?
        '7 Kostenstelle
        '8 Typ
        '9 Teile-Nr.
        '10 ID-Nr.
        '11 Fabrik -Nr.
 
 
        dt1.Clear()
 
        Dim sr As New System.IO.StreamReader(FileName)
        Dim Zeile As String = Nothing
        Dim i As Integer = 0
 
        Dim arr() As String = Nothing
 
        Do While Not sr.EndOfStream
            Zeile = sr.ReadLine()
 
            arr = Zeile.Split(";")
            If Not arr(0).Contains("Pos.") Then
 
                Dim newRow As DataRow = dt1.NewRow
                i = i + 1
 
                newRow("ID") = i
                newRow("Pos.") = arr(0)
                newRow("Druck") = arr(1)
                newRow("InventarNr") = arr(2)
                newRow("Spez.-Bemi-Nr.") = arr(3)
                newRow("Bezeichnung") = arr(4)
                newRow("vorhanden") = arr(5)
                newRow("-Datum") = ""
                newRow("-TAKT-Ort-") = arr(6)
                newRow("Kst.:") = arr(7)
                newRow("Typ") = arr(8)
                newRow("Teilenummer") = arr(9)
                newRow("IDNr") = arr(10)
                newRow("FabrikNr") = arr(11)
 
                dt1.Rows.Add(newRow)
 
            End If
        Loop
 
        sr.Close()
 
        Application.DoEvents()
 
    End Sub