Dim lngRow As Long
Dim lngCol As Long
 
With MSFlexGrid1
 
    '   Änderungen später anzeigen
    .Redraw = False
 
    '   Anzahl Zeilen und Spalten festlegen
    .Rows = Rs.RecordCount + 1
    .FixedRows = 1
    .Cols = Rs.Fields.Count
    .FixedCols = 0
 
    '   Vorherigen Inhalt leeren
    Call .Clear
 
    '   Daten eintragen
    For lngRow = 1 To Rs.RecordCount
        For lngCol = 0 To Rs.Fields.Count - 1
 
            .TextMatrix(.FixedRows + lngRow - 1, .FixedCols + lngCol) = ValueOf( _
              Rs.Fields.Item(lngCol))
        Next lngCol
 
        '    Nächster Datensatz
        Call Rs.MoveNext
    Next lngRow
 
    '   Änderungen nun anzeigen
    .Redraw = True
End With