Zitat:

Mir ist bewusst, dass ich das Problem durch die Verwendung eines Timers (wie hier vorgeschlagen) umgehen könnte, aber ich setze das Grid nunmal in einer professionellen Umgebung ein, da möchte ich solche unsicheren Workarounds eigentlich vermeiden.

Option Explicit
...
Private sKey As String
 
Private Sub GridRefresh()
  With sevGrid1
    sKey = .Text(.Row, "key")
    Timer1.Interval = 50
    Timer1.Enabled = True
  End With
End Sub
 
Private Sub Timer1_Timer()
  Timer1.Enabled = False
 
  With sevGrid1
    Set .Recordset = db.OpenRecordset(.Recordset.Name)
    .Refresh
    .Row = .FindFirst("Key = '" & sKey & "'")
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de