VBScript - array skal jeg have lavet fra db

Hvordan definerer jeg et array ud fra en database?

Indtil videre har jeg:

<%
strConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")

    Set objRS1 = Server.CreateObject(\"ADODB.RecordSet\")
    strQ1 = \"SELECT * FROM tabel\"
    objRS1.Open strQ1, strConn

dim nyarray()
indeks = 0
Do While Not objRs1.EOF
nyaaray(indeks) = objRs1(\"dadida\")
indeks = indeks + 1
objRs1.MoveNext
Loop

Set objRs1 = Nothing
Set Conn = Nothing
strconn.close
%>