Проверка на наличие поля в таблице

Проверяет есть ли указанное поле в указанной таблице
Возвращает True или False
Использование:
IsFieldPresent("ИмяТаблицы", "ИмяПоля")

Private Function IsFieldPresent(sTableName As String, sFieldName As String) As Boolean
'Проверка есть ли поле sFieldName в таблице sTableName
Dim objField As Field
'--------------------------------------------------------------------------
On Error GoTo IsFieldPresent_Err
    Set objField = CurrentDb.TableDefs(sTableName).Fields(sFieldName)
    IsFieldPresent = True

IsFieldPresent_Bye:
    Set objField = Nothing
    Exit Function

IsFieldPresent_Err:
    Err.Clear
    Resume IsFieldPresent_Bye
End Function