Sub LoadFromDB(RS as Variant, RowIDColumn as string = "", expandColumns as Boolean = false, expandRows as Boolean = false, maxColumnWidth as integer = 300, maxRowHeight as integer = 100)