Private Sub GridDarstellen()
    With sevAuftrage
        ' autom. Neuzeichnen ausschalten
        .LockUpdate True
 
        ' Recordset-Kopie erstellen
        .CreateClone = True
 
        ' Recordset zuweisen'
        .Clear True
        Set .Recordset = RSRuesten
 
        ' autom. Sortierung aktivieren
        .AutoSort = True
 
        ' nach Feld "Name" sortieren
        '.DoSort "Stellplatz"
 
        ' Mehrfachselektion zulassen
        .AllowMultiSelect = False
 
        ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
        '.AllowEdit = True
        '.AllowDelete = True
 
        ' interaktives Ändern der Spaltenbreiten zulassen
        .AllowColumnSizing = True
 
        ' Drag & Drop von Spalten zulassen
        .AllowColumnReorder = True
 
        .FixedCol = True
 
         ' Caption anzeigen?
        .CaptionVisible = True
 
        ' autom. Neuzeichnen einschalten
        .LockUpdate False
        .Refresh
 
        ' 1. Zeile selektieren
        .Row = 1
    End With
End Sub

    Ruesten = App.Path & "\Programme\Ruesten\" & glbStaionsname & ".mdb"
    conRuesten.Provider = "Microsoft.Jet.OLEDB.4.0"
    conRuesten.Open Ruesten
    sqlRuesten = "SELECT * FROM Ruesten" & " order by " & cboSortierenNach
    RSRuesten.LockType = adLockOptimistic
    RSRuesten.CursorLocation = adUseClient
    RSRuesten.Open sqlRuesten, conRuesten
 
    sevAuftrage.Refresh

Danke Euch und Gruss
Dany