How to store query data into dynamic array?

Originally Posted by CK76

Sample below, for filling array with single column data (using Field Index#, you could use it's name in place).
Do note that .RecordCount will return different result depending on cursor type of Recordset object.
I typically use... "adOpenStatic" This is specified in Recordset.Open method.

Dim ar
With CVRs
    If .RecordCount > 1 Then
        ReDim ar(0 To .RecordCount - 1, 1)
        i = 0
        Do Until .EOF
            ar(i, 0) = .Fields(0)
            .MoveNext
            i = i + 1
        Loop
    End If
End With
Range("A1").Resize(UBound(ar), 1) = ar

Thank you. I will try the code later.