Очистка таблицы от данных

Процедура полностью очищает от данных таблицу заданную в параметре strTableName.

Public Sub ClearTable(strTableName As String)
Dim strSQL As String
On Error GoTo m1

SysCmd acSysCmdSetStatus, "Очищаю таблицу - " & strTableName
strSQL = "DELETE FROM " & strTableName
CurrentDb.Execute strSQL
SysCmd acSysCmdClearStatus
Exit Sub
m1:
MsgBox "Произошла ошибка №" & Err.Number & " при очистке таблицы " & strTableName, vbCritical
Err.Clear
End Sub