rs.Open strSQL, CurrentProject.Connection, adOpenForwardOnly
If rs.EOF = False Then
    Do Until rs.EOF = True
        lngCount = lngCount + 1
        ReDim Preserve aryTemp(lngCount)
        strTemp = rs![WhateverField]
        aryTemp(lngCount) = strTemp' Storing field in an array
        rs.MoveNext
    Loop
End If