With me.sevGrid
    sSql = "SELECT projektnr, '0,00' AS Kosten FROM Projekte WHERE projektnr=" _
      & nID
    rs.Open sSql, connSDB, adOpenStatic, adLockReadOnly
        .Clear True
        .CheckBoxStyle = CHECKBOX_XP
        .LockUpdate True
        .BackColorOdd = vbWhite
        .BackColorEven = vbWhite
        .HighlightBackColor = &HFF8080
        .HighlightForeColor = vbBlack
 
        Set .Recordset = rs
 
        With .Columns("projektnr")
            .Caption = "ProjektID"
        End With
        With .Columns("Kosten")
            .Caption = "Gesamtkosten"
        End With
 
        .CaptionVisible = False
        .ColumnHeaderHeight = 19
        .AllowEdit = False
    rs.close
End With

    LohnKost = ErmittleKosten()
    .CellText("Kosten") = Format(LohnKost, "#,##0.00")

    sHlp = .Text(1, .GetCol("Kosten"))