Public Sub AktualisiereGrid()
    Dim RS As New ADODB.Recordset
    Dim sSQL As String
 
    sSQL = STR_SQL_RECORDSOURCE
    RS.CursorLocation = adUseClient
    RS.Open sSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic
 
    With Me.sevGridOffeneRechnungen
        ' autom. Neuzeichnen ausschalten
        .LockUpdate True
 
        ' Recordset-Kopie erstellen
        .CreateClone = True
 
        ' Recordset zuweisen
        .Clear True
        Set .Recordset = RS
 
        ' Filterzeile oberhalb der Spaltenköpfe anzeigen
        .FilterAlign = FILTER_ALIGN_TOP
        .FilterForeColorDisabled = vbGrayText
        .FilterVisible = True
        .AllowFilterEdit = True
        .FilterMoveTAB = False
 
        .CaptionVisible = False
        .CaptionFont.Name = "Tahoma"
        .CaptionFont.Bold = True
        .Font.Name = "Tahoma"
        .Font.Size = 8
        .ColumnHeaderFont.Name = "Tahoma"
        .ColumnHeaderHeight = 18
        .CellSpacing = 2
 
        .ScrollBars = 3  'SB_Both
        .FooterFlat = True
        .FooterVisible = True
        .FooterBackColor = vbButtonFace
        .FooterFont.Bold = False
        .FooterHeight = 40
 
        ' Icon-Liste erstellen
        .Icons.Add LoadPicture("C:\Project2015\IMAGES\filter.ico")
 
        .FixedCol = True
        .FixedColCount = 1
 
        .FixedColumns(1).Width = 200
        ' Spaltenbreiten festlegen
        .Columns(1).Width = 800
        .Columns(2).Width = 800
        .Columns(3).Width = 1200
        .Columns(4).Width = 1000
        .Columns(5).Width = 4000
        .Columns(6).Width = 1000
        .Columns(7).Width = 2500
        .Columns(8).Width = 2500
        .Columns(9).Width = 800
 
        .Columns(1).Visible = False
 
        ' zuletzt gespeicherte Spaltenbreiten wiederherstellen
        .ReadColumnWidth "SLG2000", "frmRechnungAusgangOffenRechnungen", _
          "ColWidths"
 
        ' autom. Sortierung aktivieren
        .AutoSort = True
 
        ' Mehrfachselektion zulassen
        .AllowMultiSelect = False
 
 
        ' interaktives Ändern der Spaltenbreiten zulassen
        .AllowColumnSizing = True
 
        ' Drag & Drop von Spalten zulassen
        .AllowColumnReorder = True
 
        ' autom. Neuzeichnen einschalten
        .LockUpdate False
        .Refresh
 
        .Columns(5).AdjustWidthToGridSize
 
        ' ursprüngliches Recordset zerstören
        RS.Close
        Set RS = Nothing
 
        ' sFilter-Array dimensionieren
        ReDim sFilter(.Cols)
    End With
 
    SetColors Me.sevGridOffeneRechnungen
 
End Sub