Application OK Application(0) Falla

Por favor si alguien me puede decir que he de cambiar en el codigo
siguiente
se lo agradeceré de verdad. Se el Problema, pero no le encuentro solucion,
ni
explicacion (A tener en cuenta que soy un aficionado)

Tal y como está el codigo aqui y la base de datos
http://www.geocities.com/jorge1644/MyDataBase.mdb FUNCIONA. Pero si cambio
el
codigo de producto en la tabla Products (Por ejemplo Product_A a
Product_ABCD) ya no funciona.

Aqui esta el codigo:
<%
Application.Contents.RemoveAll()
Server.ScriptTimeOut = 12000

set Connec = server.createobject("adodb.connection")
Connec.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA
SOURCE=C:\MyDataBase.mdb"

set rs = server.createobject("adodb.recordset")
ssqlrs = ("select * from Products")
rs.open ssqlrs,Connec,3,3
do while not rs.eof

Application.Lock
Application(""&rs("ProductCode")&""&"DescripcionLineaEntera") > rs("ProductDescription") & " - " & rs("PriceFrom1Units")& " - " &
rs("PriceFrom5Units") & Chr(13)
Application.Unlock

Redim parametros(4)
parametros(0) = rs("ProductDescription")
parametros(1) = rs("PriceFrom1Units")
parametros(2) = rs("PriceFrom5Units")
parametros(3) = rs("PriceFrom10Units")
parametros(4) = rs("PriceFrom20Units")

Application.Lock
Application(""&rs("ProductCode")&"") = parametros
Application.UnLock

rs.movenext
loop
rs.close
%>

<table border=1>
<%
set rs = server.createobject("adodb.recordset")
ssqlrs = ("select * from ProductsByCustomers order by CustomerCode")
rs.open ssqlrs,Connec,3,3
do while not rs.eof
%>
<tr>
<td><%=rs("CustomerCode")%></td>
<td><%=rs("ProductCode")%></td>
<td><% Response.write
Application(rs("ProductCode")&"DescripcionLineaEntera") %></td>
<td><% Response.write Application(""&rs("ProductCode")&"")(0) %></td>
</tr>
<%
rs.movenext
loop
rs.close
Connec.Close
Set RS = Nothing
Set Connec = Nothing
%>
</table>