Puoi dimensionare dinamicamente un array in questo modo:

<%
Dim mioarray()
Redim Preserve mioarray(5)
%>

La prima riga di codice genera un array di lunghezza indefinita, il secondo imposta l'indice superiore a 5 (vuol dire che conterrà 6 elementi di indici da 0 a 5)

Per cui potresti fare:

<%
Dim mioarray()
rs.Open "SELECT * FROM..."
dimensione = rs.RecordCount - 1
Redim Preserve mioarray(dimensione)
%>

oppure ti suggerisco anche il metodo GetRows() dell'oggetto recordset:
<%
altroarray = rs.GetRows
%>

ma non so come si comporta... non l'ho mai usato :(