quartz wrote:
You are right. It had been awhile since I worked with ADO. I forgot
that you need to specifically loop through the recordset and use
".Name" to get at the field names. I was thinking that the fields
would just be there using CopyFromRecordset.

I inserted the following portion of your code and it worked fine:

For nCol = 1 To rs.Fields.Count
Sheets("Sheet1").Cells(1, nCol).Value = rs.Fields(nCol -
1).Name Next nCol

Great - glad to hear it worked for you.

Thanks so much for your help.

No problem!

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]