Alttaki gibi bir kod var ve Tablodaki alan adlarını bulyor.
Ona bir if koşulueklersen sarım  istediğin olur.

Dim sTable As String

    Dim rs As DAO.Recordset

    Dim n As Long

    Dim sResult As String





    Set rs = CurrentDb.OpenRecordset("Tablo1")



    With rs

        For n = 0 To .Fields.Count - 1

            sResult = sResult & .Fields(n).Name & vbCrLf

        Next 'n

        .Close

    End With



    Set rs = Nothing



MsgBox sResult