With sevGrid1
      ' autom. Neuzeichnen ausschalten
      .LockUpdate True
 
      .DataMode = Mode_Recordset
      .AllowDelete = True
      .AllowEdit = True
      .StartEditWith = EDIT_MANUELL
      .AllowMultiSelect = False
      .AutoRedraw = False
      .BalloonTip = True
 
      ' interaktives Ändernder Spaltenbreiten zulassen
      .AllowColumnSizing = True
 
      ' autom. Sortierung aktivieren
      .AutoSort = True
      .ShowSortSymbols = True
 
      ' Recordset zuweisen
      .Clear True
 
      ' Recordset-Kopie erstellen
      .CreateClone = False
 
      Set oRs = oDB.OpenRecordset(sSQL)
 
      Set .Recordset = rs
 
       ' Nach Name sortieren
      .DoSort "PLZ", SORT_ASC
 
      ' ursprüngliches Recordset zerstören
      If Not (rs Is Nothing) Then rs.Close
      Set rs = Nothing
 
      .Refresh
 
      ' 1. Zeile selektieren
      .Row = 1
 
      .LockUpdate False
 
End With

Private Sub sevGrid1_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sText As String)
 
    On Error Resume Next
 
    With sevGrid1
        If .IsEditMode = MODE_EDIT Then
                 ' Code zum verarbeiten
        End If
    End With
End Sub

Private Sub sevGrid1_BeforeUpdate(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, Cancel As Integer)
 
    With sevGrid1
        If .IsEditMode = MODE_EDIT Then
            Select Case nCol
                Case .GetCol("PLZ")
                    bCancel = CheckOrt(Trim(sText), CStr(.Text(nRow, .GetCol( _
                      "Ort"))))
                Case .GetCol("Ort")
                    bCancel = CheckOrt(CStr(.Text(nRow, .GetCol("PLZ"))), Trim( _
                      sText))
            End Select
        End If
    End With
End Sub