Удаление всех подлинкованных таблиц

Public Sub esDelAllConnectedTables()

'es 02.02.2011 v002

'Удаляет из текущей базы все подлинкованные таблицы

Dim tbl As TableDef

On Error GoTo DelAllConnectedTablesErr

For Each tbl In CurrentDb.TableDefs

If tbl.Connect <> "" Then

CurrentDb.TableDefs.Delete tbl.Name

End If

Next

CurrentDb.TableDefs.Refresh

DoEvents

DelAllConnectedTablesBye:

Exit Sub

DelAllConnectedTablesErr:

MsgBox "Произошла ошибка при удалении подключенных таблиц:" & vbCrLf & _

Err.Description, vbCritical

Resume DelAllConnectedTablesBye

End Sub