Within a class module I open an ADODB recordset of a single field and then move it to a Variant with rst.GetRows
Code:
Public CloseArray As Variant
Public Sub OpenRecordset()
rst.CursorLocation = adUseClient
rst.Open "SELECT Field5 FROM " & MarketTableName & " WHERE Field1 BETWEEN " & stringStartDate & " AND " & stringEndDate & " ORDER BY Field1",