Как сделать чтообы при выполнении запроса на создание таблицы Акцесс не выдавал различных сообщений?

Я иногда делал так:

Public Function PEN_Create_Query()
Dim dbsCurrent As Database
Static MySql As String
On Error Resume Next
DoCmd.DeleteObject acTable, "TOVAR" 'Удаление таблицы
MySql = "SELECT Q_TOVAR_kompl.* INTO TOVAR FROM Q_TOVAR_kompl WITH OWNERACCESS OPTION;"
Set dbsCurrent = CurrentDb
dbsCurrent.Execute MySql
End Function

Docmd setwarnings false
   <выполняешь свои запросы>
Docmd setwarnings true

TopList Rambler's Top100