从访问数据库获取数据头

I have written a piece of VBA code that loops through a list of access database queries and copies them into one excel workbook. The code is working perfectly, but I can not figure out how to include the headers into the data when copied to excel workbook. I have written a piece of VBA code that loops t