errore che non capisco

[techno]

Salve a tutti ed auguri

Volevo chiedere il perchè di questo errore:
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '6'

/page/games/list.asp, line 168

lo script è il seguente:

Dim ArrNew(5)
Set recNew=connGMS.Execute("Select Top 5 IDG From archivio Where IDP='"&IDP&"' order by Data Desc")
Dim ciclo
ciclo=0
Do while not (recNew.EOF)
ArrNew(ciclo)=recNew.fields("IDG") ***
ciclo= ciclo + 1
recNew.moveNext
loop
Set recNew= nothing 

la riga di errore che fa riferimento è quella dove ci sono i tre asterischi