Why not to use GetRows method, which creates 2 dimensional array???
Code:
<%
Dim cn
Dim rs
Dim arrRecords

Set cn = Server.CreateObject("ADODB.Conenction")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open "DSN=YourDSN", UserName, Password
rs.Open "Select * From MyTable", cn, 3  'adOpenStatic

arrRecords = rs.GetRows

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
This will create arrRecords with 2 dimensions: arrRecords(Column, Row).

Regards,