Field Name in Access database

..Or

for i = 0 to rs.fields.count - 1
msgbox rs(i).name
next i

..Or using openschema method from the connection object

set rs = cn.openschema(adschemacolumns)

do until rs.eof

if rs("TABLE_NAME") = <The table name here> then
msgbox rs("COLUMN_NAME")
end if

rs.movenext
loop

set rs = nothing