Error 550 - Too many data statements

Too many data statements - Data is limited to 64 Kb per Sub, Function, Method, or Property, and 16384 individual data items. Either reduce the number of DATA statements, or split the data into separate procedures.