При создании базы данных нам потребуются внешние функции, которые хранятся в специальных библиотеках, файлах с расширением DLL. В этом примере показано, как создать программу, которая будет автоматически подключать нужные Вам библиотеки, а в качестве шаблона ссылок использует текущую базу данных. Например, ссылка на библиотеку Office хранится в файле C:\Program Files\Microsoft Office\ Office\MSO9.DLL
Public Function funInitReferences()
Dim sFullPath As String, ref As Reference
On Error GoTo 999 'Назначаем переход по ошибке
With appAccess 'Выбираем базу данных
For Each ref In .References
If ref.BuiltIn = False Then _
.References.Remove ref 'Удаляем лишние ссылки
Next
End With
sFullPath = References("Office").FullPath
appAccess.References.AddFromFile (sFullPath) 'Устанавливаем Office
sFullPath = References("DAO").FullPath
appAccess.References.AddFromFile (sFullPath) 'Устанавливаем DAO
Exit Function 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок