Excel VBA AccessApplication.OpenCurrentDatabase не работает

Question

Вот что я пытаюсь сделать с Excel VBA:

1. Скопировать диапазон в Excel
2. Открыть базу данных Access
3. Удалить записи изТаблица CV
4. Вставьте новые записи из Excel в таблицу CV
5. Запустите запрос таблицы создания
6. Закройте базу данных

Код нижеработал - один раз.После успешного запуска он не запустится снова.Сообщение об ошибке отсутствует - база данных Access просто никогда не открывается, и макрос заканчивается.Ничто не бежало за кулисами, БД Access никогда не трогали.

Я предполагаю, что ошибка может быть связана с тем фактом, что приложение было открыто один раз и, возможно, не закрыто должным образом и, следовательно, не может быть повторно открыто?(Понятия не имею, если это верно / имеет смысл)

Sheets("NAHVCV").Select
Range("A:C").Select
Selection.Copy

Dim appAccess As New Access.Application

Set appAccess = Access.Application

appAccess.OpenCurrentDatabase AccessDBPath
appAccess.Visible = True

appAccess.CurrentDb.Execute "DELETE * FROM [CV]"
appAccess.DoCmd.OpenTable "CV", acViewNormal, acEdit
appAccess.DoCmd.RunCommand acCmdPasteAppend

appAccess.DoCmd.Close acTable, "CV", acSaveYes

appAccess.DoCmd.OpenQuery "qryMakFutRetroVariance"

appAccess.CloseCurrentDatabase

appAccess.Quit acQuitSaveAll