Dim db As DAO.Database
Private Sub Form_Load()
  'Grid wird im RS-Mode betrieben und mit Werten gefüllt
  Set db = Workspaces(0).OpenDatabase(App.Path & "\db1.mdb")
  sevGrid1.AllowEdit = True
  Me.sevGrid1.AutoUpdate = True
  Fill_JobList
End Sub
Private Sub sevGrid1_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sText As String)
'Nach erfolgreichem Update soll das Grid neu gefüllt werden
  Fill_JobList '--> Zellwert "verschwindet", Grid ist nicht mehr ansprechbar
End Sub
Private Sub Fill_JobList()
  With sevGrid1
    .LockUpdate True
    Set .Recordset = db.OpenRecordset("select feld1 from Tabelle1")
    .LockUpdate False
    .Refresh
  End With
End Sub