Private Sub Load_Kundengruppen()
 
    e = DBopen("")
 
    Dim rs As Recordset
    Dim SQL As String
 
    Dim oItem As sevDataGrid.ListItem
 
 
    SQL = "SELECT * FROM ADR_Kundengruppen"
    Set rs = Db.OpenRecordset(SQL, dbOpenSnapshot)
 
    'Zeiger auf die erste SQL-Zeile setzen
    SQLrsSetRecord rs
 
    If rs.RecordCount <> 0 Then
        grdKundengruppen.Clear
        Do
 
            Set oItem = grdKundengruppen.AddItem(rs("PS") & vbTab & rs( _
              "Filter") & vbTab & rs("Gruppenname"))
 
            rs.MoveNext
        Loop Until rs.EOF
    End If
 
    Set rs = Nothing
 
    'hat auch nix gebracht...
    grdKundengruppen.Refresh
 
    grdKundengruppen.Row = 1
End Sub

            With grdKundengruppen
                ' autom. Neuzeichnen ausschalten
                .LockUpdate True
 
                ' DateMode: RandomAccess
                .DataMode = Mode_List
 
                ' Spalten hinzufügen
                .ColumnAdd "ps", "", 0
                .ColumnAdd "filter", "Filter", 500, , , TYP_CHECKBOX
                .ColumnAdd "kgr", "Kundengruppe", 3000
 
                ' autom. Sortierung aktivieren
                .AutoSort = True
 
                ' nach Feld "Name" sortieren
                .DoSort "kgr"
 
                ' interaktives Hinzufügen, Ändern und Löschen
                .AllowEdit = True
                .AllowDelete = False
 
                ' interaktives Ändern der Spaltenbreiten zulassen
                .AllowColumnSizing = True
 
                ' autom. Neuzeichnen einschalten
                .LockUpdate False
                .Refresh
 
            End With