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("angelegtam") Then
 
                Dim newRow As DataRow = dt1.NewRow
                i = i + 1
 
                newRow("ID") = i
                newRow("angelegtam") = arr(0) 'DateTime ? ISDBNULL
                newRow("Vorgangsname") = arr(1)
                newRow("Vorgangsbeschreibung") = arr(2)
                newRow("Ablagename") = arr(3)
                newRow("Kosten") = arr(4)
                newRow("Vorgangabgeschlossen") = arr(5) 'DateTime ? ISDBNULL
                newRow("Status") = arr(6)
                newRow("Bemerkung") = arr(7)
                newRow("IDAblage") = arr(9)
 
 
                dt1.Rows.Add(newRow)
 
            End If
        Loop
 
        sr.Close()
 
        Application.DoEvents()

Dim dt1 As New DataTable
dt1.Columns.Add("angelegt am", GetType(DateTime))
dt1.Columns("angelegt am").AllowDBNull = True

Dim mydate as DateTime
Dim newrow As DataRow = dt.NewRow
 
If DateTime.TryParse(arr(0), mydate) Then
   newrow("angelegt am") = mydate
Else
   newrow("angelegt am") = DBNull.Value
End If