Вот мой вариант. Конечно Sub можно ваще не использовать - это просто для демонстрации. Можно где-то в коде передавать значение в функцию и получать ответ. Сразу хочу сказать, что на таблице со 100 полями определяет примерно секунды за 2-3.

Sub Poisk_polya()
table_name = InputBox("Введите имя таблицы")
pole_name = InputBox("Введите имя поля")
MsgBox naydeno(table_name, pole_name)

End Sub

Public Function naydeno(ByVal table_name As String, ByVal pole_name As String)
count_poley = CurrentDb.tabledefs(table_name).Fields.Count

For i = 0 To count_poley - 1
If CurrentDb.tabledefs(table_name).Fields(i).Name = pole_name Then
naydeno = True
End If
Next i

End Function