With sevGrid1.Recordset
  Do Until rstEvents.EOF = True
    .AddNew
    .Fields(0) = rstEvents(0)
    .Fields(1) = rstEvents(1)
    .Fields(2) = rstEvents(2)
    .Update
 
    rstEvents.MoveNext
  Loop
 
  .Requery
 
  ' Falls Requery fehlschlägt, Recordset neu erstellen und zuweisen
  ' .Close
  ' .Open
End With
sevGrid1.Refresh

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de