SQL Query to Sheet - 1 column behaving badly

Hello - I have a SQL query that is behaving a bit oddly. There are 8 fields in the DB, and currently about 1,500 rows so far (pretty small, I know).

I've used this code before with no issues:

DataA is the array that holds my SQL results. NumRec is the number of records being returned.

Please Login or Register  to view this content.

The first of the 8 columns (x) writes the 1500 rows (y) in about 1 second
The second writes in about 13 seconds
The third, fourth, fifth, sixths and seventh write in about 1 second each.

The data in the second column is simply 3-4 alpha characters - the other columns are slightly larger texts fields and 1 date field. For example:

Please Login or Register  to view this content.

Am I missing something obvious? Alternately, is there a better way to just flash dump all of the data from the SQL table into my sheet?

Many thanks for any help.

Yes,
Assuming that rs is the data returned from the SQL execution code.

Sheets("Sheet2").Range("A2").CopyFromRecordset rs

Thank you...

I know I'm doing something stupid... but the data I get back from SQL is in the Array, "DataA"

Please Login or Register  to view this content.

But nothing is written to the spreadsheet. I added a Watch for DataA, and I can see that the array does have all the results, though.

I think it is Rst, not DataA

DataA = Rst.GetRows(NumRec) ' returns the rows from Rst

Ah, I see the problem - thank you for your help.
I wasn't creating the Rst object right (Set Rst = CreateObject("ADODB.Recordset"))

Thank you again!