Public Sub FillGridFakts(ByVal QuickFakt As Integer, _
                        ByVal Lieferung As Long, _
                        ByVal sListArt As String)
    On Error GoTo errHandler
    Dim oRs     As New ADODB.Recordset
    Dim nCol  As Long
 
    Set oRs = myServer.ReadFakturen(QuickFakt, Lieferung, sListArt) ' 
    ' Recordset-Objekt erstellen
 
    With fFakt.Grid2
        .LockUpdate True ' autom. Neuzeichnen ausschalten
        .CreateClone = True ' Recordset-Kopie erstellen
        .Clear True
        Set .Recordset = oRs ' Recordset zuweisen
 
        For nCol = 1 To .Cols
            .Columns(nCol).HeadAlign = ALIGNMENT_CENTER
            .Columns(nCol).Align = ALIGNMENT_LEFT
            Select Case nCol
            Case 19 'Lieferung
                .Columns(nCol).MinWidth = TextWidth(.Columns(nCol).Caption) * 2
            Case 10 'PrdDate
                .Columns(nCol).MinWidth = TextWidth(.Columns(nCol).Caption) * _
                  1.8
            Case Else
                .Columns(nCol).MinWidth = TextWidth(.Columns(nCol).Caption) * _
                  1.2
            End Select
        Next
 
        .AutoSort = True            ' autom. Sortierung
        .AllowMultiSelect = False   ' Mehrfachselektion
        .AllowEdit = False          ' hinzufügen
        .AutoUpdate = False         ' ändern
        .AllowDelete = False        ' löschen
        .AllowColumnSizing = True   ' interaktives Ändern der Spaltenbreiten
        .AllowAutoColumnSizing = True
        .AllowColumnReorder = True  ' Drag & Drop von Spalten
 
        ' autom. Neuzeichnen einschalten
        .LockUpdate False
        .Refresh
 
        .Row = lRowGewählt ' 1. oder gewählte Zeile selektieren
 
        ' ursprüngliches Recordset zerstören
        oRs.Close
        Set oRs = Nothing
 
        'AutoSizen
        For nCol = 1 To .Cols
            .DoColumnAutoSize nCol
        Next
        .RefreshEx
    End With
    Exit Sub
errHandler: