Visual Basic - Conseguir los nombres del los campos de una tabla

Necesitaria saber como puedo hacer para conseguir los nombres de campos de una tabla cuando ejecuto un query.
Por ejemplo: SI tengo la tabla A con los campos ID y Edad, y yo ejecuto un SELECT * from a
como hago para recuperar justamente ID y EDAD, NO LOS DATOS!!! SINO LOS NOMBRES!!
Si alguien me ayuda se lo agradeceria muchismo

Si ejecuta por decir
Set Datos = New Recordset
datos.open "SELECT * from a"
la forma seria:

for i= 0 to datos.fields.count-1
VariableRecuperaNombres(i)=datos.Fields(i).Name
next i

y asi recuperas el nombre de los campos de tu tabla

Si lo que quieres es un recordset con los nombres de los campos de la tabla en lugar de estar examinando el campo fields despues de un query debes usar

select sc.name
from syscolumns sc, sysobjects so
where sc.id = so.id and
so.name = 'nombre_tabla'