Problem creating big xlsx file from Classic ASP using Microsoft.ACE.OLEDB.12.0 provider

Hi.

I have a classic ASP page that write on an xlsx file.

This is the code:

set conExcel = Server.CreateObject("ADODB.Connection")
conExcel.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strXLSFileName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=0;"""
do while not rs.EOF
	strSQL = "insert into [Data$]("
	strSQL = strSQL & " [Column 01],"
	strSQL = strSQL & " [Column 02],"
	strSQL = strSQL & " [Column 03],"
	strSQL = strSQL & " [Column 04],"
	strSQL = strSQL & " [Column 05],"
	strSQL = strSQL & " [Column 06],"
	strSQL = strSQL & " [Column 07],"
	strSQL = strSQL & " [Column 08],"
	strSQL = strSQL & " [Column 09],"
	strSQL = strSQL & " [Column 10],"
	strSQL = strSQL & " [Column 11],"
	strSQL = strSQL & " [Column 12],"
	strSQL = strSQL & " [Column 13],"
	strSQL = strSQL & " [Column 14],"
	strSQL = strSQL & " [Column 15]"
	strSQL = strSQL & " ) values ("
	strSQL = strSQL & " '" & rs("COLUMN_01") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_02") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_03") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_04") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_05") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_06") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_07") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_08") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_09") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_10") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_11") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_12") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_13") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_14") & "',"
	strSQL = strSQL & " '" & rs("COLUMN_15") & "'"
	strSQL = strSQL & ")"
	conExcel.execute(strSQL)
	rs.moveNext
loop
conExcel.close

I can create only small file, less then 1 Mb.

If there are more rows the final xlsx file is empty.

Can you help me?

Thanks

& "',"