With sdgStat
        .Clear True
        .DataMode = Mode_List
        .LockUpdate True
 
        .ColumnAdd "Datum", "Datum", , ALIGNMENT_LEFT, , , ALIGNMENT_LEFT, , _
          SORT_DATE
        If Not rsStat.EOF Then
            Set oItem = .AddItem(rsStat!bDat)
        End If
 
        Do While Not rsStat.EOF
            On Error Resume Next
            .ColumnAdd rsStat!cUser, rsStat!cUser, , ALIGNMENT_LEFT, , , _
              ALIGNMENT_LEFT, , SORT_NUMERIC
            On Error GoTo 0
 
            sItem = rsStat!bDat
 
            If oItem.CellText("Datum") <> rsStat!bDat Then
                Set oItem = .AddItem(sItem)
            End If
 
            oItem.CellText(rsStat!cUser) = rsStat!coun   
 
            rsStat.MoveNext
        Loop