Populate an array with the results of an Access query? 1

[wadjssd]

I've got an existing query which produces a simple recordset of unique values (all text strings) from a table.
I'm writing a VBA module and would like to be able to automatically populate an array with these unique values.
Is this possible?
If so, any help / pointers would be gratefully received.

Thanks
wadjssd

 

[mndrlion]

Here is how I would do it:

    Dim rst As DAO.Recordset
    
    Dim astrSuppliers() As String
    
    Dim i As Integer
    
    Set rst = CurrentDb.OpenRecordset("qrySuppliers")
    
    
    rst.MoveFirst
    i = 1
    
    Do Until rst.EOF
    
        ReDim Preserve astrSuppliers(i)
        astrSuppliers(i) = rst![Supplier]
    
        rst.MoveNext
        i = i + 1
    Loop
    
    rst.Close
    Set rst = Nothing