Удаление Поля из Таблицы

Public Sub DelTableField(sDBPath$, sTableName$, sFieldName$)
'Удаление поля из таблицы по аргументам ...
'--------------------------------------------------------------------------
Dim s$
Dim dbe As DAO.DBEngine
Dim dbs As DAO.Database

On Error GoTo DelTableField_Err
    Set dbe = CreateObject("DAO.DBEngine.120")
    Set dbs = dbe.OpenDatabase(sDBPath) 'CurrentDb
    
    s = "ALTER TABLE " & sTableName & " DROP COLUMN " & sFieldName
    dbs.Execute s

DelTableField_Bye:
    Set dbe = Nothing
    Set dbs = Nothing
    Exit Sub

DelTableField_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: DelTableField", vbCritical, "Error"
    Resume DelTableField_Bye
End Sub

Public Sub DelTableField(sTableName$, sFieldName$)
'Удаление поля из ЛОКАЛЬНОЙ таблицы по аргументам ...
'--------------------------------------------------------------------------
Dim s$
On Error GoTo DelTableField_Err
    s = "ALTER TABLE " & sTableName & " DROP COLUMN " & sFieldName
    CurrentDb.Execute s

DelTableField_Bye:
    Exit Sub

DelTableField_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: DelTableField", vbCritical, "Error"
    Resume DelTableField_Bye
End Sub