Done.
The blue marked code was now inserted into the DataSource property.
Code:If PropFixedRows > 0 Then For iCol = 0 To (PropFixedCols - 1) VBFlexGridColsInfo(iCol).Key = vbNullString Next iCol For iCol = 0 To (.Fields.Count - 1) Me.TextMatrix(0, iCol + PropFixedCols) = .Fields(iCol).Name VBFlexGridColsInfo(iCol + PropFixedCols).Key = .Fields(iCol).Name Next iCol End If






Reply With Quote