.CopyFromRecordset into variable array rather than to worksheet?

I'm using the following to pull data from an Access database to Excel, however, rather than pulling it all to an empty sheet and then loading each cells value into my array, is it possible to pull data directly to the array?

Dim NSV(1 To 52) As Double
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim DBpath As String
Dim sSQL As String

Sheets("Data").Select
Cells.Select
Selection.ClearContents

DBpath = Range("Menu!G19").Value
Set cnt = New ADODB.Connection

#If VBA7 Then
cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & DBpath & ";"
#Else
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBpath & ";"
#End If

Set rst = New ADODB.Recordset

sSQL = "SELECT * FROM SalesValues;"

rst.Open sSQL, cnt
If Not rst.EOF Then
   For n = 1 To rst.Fields.Count
     ActiveSheet.Cells(1, n).Value = rst.Fields(n - 1).Name
   Next n
   Range("Data!A2").CopyFromRecordset rst
End If
rst.Close
cnt.close

For Sweep = 1 To 52
    NSV(Sweep) = Cells(2, Sweep + 1).Value
Next Sweep

Be a pal and gimme a clue how? MS help isn't being very helpful on the GetRows method. Seems there's a big difference between ADO getrows and DAO getrows which has been confusing me for the last 15 minutes.

I'm missing something cos when I try to read back the array all I get is errors.

msgbox Arr    ' results in "Type mismatch"
msgbox Arr(1)  ' results in "Subscript out of range"

How about just 1?

Dim Products as Variant

sSQL = "SELECT DISTINCT product FROM Production_Forecast;"
rst.Open sSQL, cnt
Products = rst.GetRows()
rst.Close
MsgBox UBound(Products)
Msgbox Products(0)

It's not reading anything into the array, msgbox Ubound(Products) always displays '0' and msgbox Products(0) results in a subscript out of range.

I know for sure the SQL statement is returning data as if I use:

rst.Open sSQL, cnt
If Not rst.EOF Then
   Range("Data!C1").CopyFromRecordset rst
End If

it works just fine.

Imagine you're talking to a complete noob.

How do I access each individual value in the array?
Why does Ubound(Products) always display '0'? I thought Ubound is supposed to return the highest position in the array?

It should be reading in 350 odd product codes...

Disregard.

Got it. For a non programmer to visualise loading 1 data field into a 2 column array.....well it's weird.

However, Products(0,whatever) is working.

Thanks for the help