hola me gustaria saber como puedo en visual basic

A través de la colección fields.
Un ejemplo (crea un nuevo módulo y ponle esto)

Sub prueba()
Dim db As Database, tdf As TableDef, fld
Set db = CurrentDb
For Each tdf In db.TableDefs
For Each fld In tdf.Fields
Debug.Print tdf.Name & "." & fld.Name
Next
Next
End Sub

te situas dentro y pulsas F5 para ejecutarlo. En el panel inmediato (Ctrl+G) ves el resultado, la lista de tabla.campos de tu base de datos