Subscript out of range: 'cont'

[orcim]

Ciao.

L'errore è quello del titolo, il codice ASP è questo:

SQL1 = "SELECT COUNT(O2_PPM) AS strO2_PPM, O2_PPM FROM tbl_LISTFILES where id_cat = "& id_cat &" GROUP BY O2_PPM order by O2_PPM asc"

set rs = server.createObject("ADODB.Recordset")
rs.open SQL1, cn

NumeroDati = strO2_PPM 

redim arr_dato (NumeroDati)

if rs.eof then
response.write ("KO")

else

cont = 0

While Not rs.eof
	
arr_dato(cont) = rs("O2_PPM")
cont = cont + 1

rs.MoveNext
wend

end if

rs.Close
Set rs = Nothing 

cn.Close
Set cn = Nothing

Che sbaglio?