Option Explicit
Private sAutoNr As String
 
Private Sub Grid1_AfterUpdate(...)
  ' Datensatz merken (hierzu ein eindeutiges Feld verwenden!)
  sAutoNr = Grid1.Text(nRow, "AutoNr")
  Me.TimerInterval = 150
End Sub
 
Private Sub Form_Timer()
  Me.TimerInterval = 0
  Grid1.DoSort 1, SORT_ASC
  Grid1.FindFirst "AutoNr = " & sAutoNr
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de