Dim row As DataRow
 
        Dim lstPKbud = (From hir In Form1.dtKSTHirarchie
                             Where hir("Ebene2") IsNot DBNull.Value _
                             AndAlso hir("Ebene2") = "Primary Costs" _
                             AndAlso Not hir("Ebene4").ToString.StartsWith( _
                             "092") _
                             Select hir("Kostenart")).ToList
 
        Dim qry_PKbud = From dt In Form1.dtBABKosten _
                             Where lstPKbud.Contains(dt("Kostenart")) _
                             AndAlso dt("KST_Bezeichnung") = "Objektmanagement" & _
                             "IN" _
                             AndAlso dt("Jahr") = Jahr
 
 
        row = dtPK.NewRow()
        row(0) = "Primary Costs (Budget)"
        Dim cnt As Integer = 1
        For a As Integer = 1 To dtPK.Columns.Count - 1
            row(a) = String.Format("{0:C2}", qry_PKbud.Sum(Function(item) _
              item.Field(Of Double?)(cnt + 4)))
            cnt = cnt + 2
        Next
        dtPK.Rows.Add(row)

row(a) = String.Format("{0:C2}", qry_PKbud.Sum(Function(item) item.Field(Of _
  Double?)(cnt + 4)))

            If row(a) = 0 Then
                row(a) = DBNull.Value
            End If