Private Sub cmdGetEvents_Click()
  ...
    ' sevGrid entrümpeln
    sevGrid(1).LockUpdate True
    sevGrid(1).Clear True
  ...
 
        ' Daten in Grid übertragen
        Do Until rstEvents.EOF = True
          If sevChkFilterEvents.Value = vbChecked Then
            If CStr(rstEvents(2)) <> strTmp Then
              ' sevGrid(1).AddNew
              ' sevGrid(1).CellNew(1) = rstEvents(0)
              ' sevGrid(1).CellNew(2) = rstEvents(1)
              ' sevGrid(1).CellNew(3) = rstEvents(2)
              ' sevGrid(1).UpdateRow
              sevGrid(1).AddItem CStr(rstEvents(0)) & vbTab & CStr(rstEvents( _
                1)) & vbTab & CStr(rstEvents(2))
              strTmp = CStr(rstEvents(2))
            End If
          Else
            ' sevGrid(1).AddNew
            ' sevGrid(1).CellNew(1) = rstEvents(0)
            ' sevGrid(1).CellNew(2) = rstEvents(1)
            ' sevGrid(1).CellNew(3) = rstEvents(2)
            ' sevGrid(1).UpdateRow
            sevGrid(1).AddItem CStr(rstEvents(0)) & vbTab & CStr(rstEvents( _
              1)) & vbTab & CStr(rstEvents(2))
          End If
 
          rstEvents.MoveNext
 
          ' Windows tut auch was...
          If intCounter Mod 3 = 0 Then DoEvents
          ' Me.Caption = sevGrid(1).Rows
        Loop
  ...
 
  Next intCounter
  sevGrid(1).LockUpdate False
  sevGrid(1).Refresh
 
  ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de