Visual Basic - recorrer todos los campos de una tabla

bien mi pregunta es la siguiente como recorro todos los campos de una tabla mediante el editor de visual basic de access

me explico

deseo ke compare un campo con todos los campos de una tabla y los coincidentes los agrege algo asi

for x=0 to numeromaximodecamposdelabase

'tiene que realizar esta consulta e ir agragando datos si coinciden
palabra=palabra & "," & dlookup("entradads","tmpsinonimos","[entradaor]=" & entrada)

next x

mas o menos seria asi en visual basic pero en access como recorro los campos?o como se el numero maximo de campos?

gracias XD

Dos opciones:
con DAO:
for i =0 to currentdb.tabledefs("nombretabla").fields.count-1
msgbox currentdb.tabledefs("nombretabla").fields(i).name
next

con ADO:

Dim c As ADODB.Connection
Dim r As ADODB.Recordset
c.Open "cadena de conexion"
Set r = c.OpenSchema(adSchemaColumns, Array(Empty, Empty, "nombretabla", Empty))
Do While Not r.EOF
MsgBox r.Fields("column_name").Value
r.MoveNext
Loop
r.Close
set r=nothing