ник: Lukas
Может как -то так.
strFileDBName-Путь к изменяемой базе.
Открываем ее как текущую:
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strFileDBName, True
...Здесь рвем связь
appAccess.CloseCurrentDatabase
appAccess.DoCmd.Quit
Set appAccess = Nothing
|