Ho risolto.
Purtroppo con GetRows, ma adesso funziona e riesco a passare l'array e a non usare recordCount.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