Dim rsadoDB as new adodb.recordset
'this assumes cn connection already open
set rsadodb = cn.execute "Select field1, field2 from mytable"
'return the column name in fields (should be field1 and field2
dim i as integer
for i = 0 to rsadodb.fields.count
debug.print rsadodb.fields(i).name
next i