Function FillGrid()
  Dim i As Long
  Dim nRow As Long
 
  With MSFlexGrid1
    ' Zählvariable für die aktuelle Zeile
    nRow = 0
    .Rows = oRs.RecordCount + 1
    While Not oRs.EOF
      nRow = nRow + 1
      For i = 0 To oRs.FieldCount - 1
        ' Aktuellen Wert ins FlexGrid kopieren
        .TextMatrix(nRow, i) = oRs.Fields(i).Value
        .Col = i 'Spalte zuweisen
      Next i
 
      oRs.MoveNext
    Wend
 
    If .Row > 0 Then .Row = 1
    .Enabled = (.Rows > 1)
  End With
End Function