For Each cRow In _dtKenn.Rows
            If cRow("Abrech").ToString.Trim <> "" Then
                If cRow("SysID").ToString = sID Then
                    If cRow("Kennzei").ToString.Trim = "" Then cRow("Kennzei") _
                      = "k"
                    'lA.Add(cRow)
                End If
            End If
        Next
        For Each cRow In _dtKenn.Select("", "Kennzei")
            lA.Add(cRow)
        Next