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

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