Ho risolto.
codice:
Sql = "SELECT * FROM Prodotti "
 set rs = server.createObject("ADODB.Recordset")
	rs.open sql, Conn
	
	if not rs.eof then
	Conta = RS.GetRows	

For i = 0 To Ubound(Conta,2)
			
	conto= Conta(0,i)
	           next	
	end if
Purtroppo con GetRows, ma adesso funziona e riesco a passare l'array e a non usare recordCount.