Private Sub BewerberGrid_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, Cancel As Integer)
 If BewerberGrid.IsEditMode() = MODE_ADDNEW Then
  If nCol = 1 Then
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Set db = CurrentDb
   Set rs = db.OpenRecordset("Bewerber")
 
   Do While rs.EOF = False
    If rs![PKNr] = sText Then
      rs.Edit
      rs![VerfID] = rs![VerfID] & ";" & varVerfahren
      rs.Update
     Exit Sub
    End If
    rs.MoveNext
   Loop
 
  ...und jetzt will ich einfach, dass das ganze Grid mit Daten neu geladen _
    wird, damit
  die neuen Daten auch angezeigt werden...
 
  Set rs = Nothing
  Set db = Nothing
 
  End If
 End If
End Sub