How to get column names from an ADO recordset

loop through the fields and get the Name property of each one

assuming rst is your Recordset and fld is a Field

for each fld in rst.Fields
msgbox fld.Name ' this will display the name of the field
next