.Columns(9).ColType = TYPE_CHECKBOX

Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As ListItem)
 
    With Item        
       If Grid1.Recordset.Fields("Erledigt").Value = False Then
            Anzahl = Anzahl + 1                 
        End If        
    End With   
End Sub