Для установки ссылок с помощью Visual Basic используют методы AddFromFile и AddFromGUID. Следующий пример создает ссылку в период выполнения:

Function AddReference(strFilePath As String) As Boolean
═════Dim ref As Reference

═════Const conReferenceExists As Long = 32813

═════On Error GoTo Error_AddReference
═════' добавляем ссылку на проект или библиотеку объектов
═════Set ref = References. AddFromFile(strFilePath)
═════AddReference = True

Exit_AddReference:
═════Exit Function

Error_AddReference;
═════If Err <> conReferenceExists Then
══════════MsgBox Err & "?. " & Err. Description
═════End If
═════AddReference = False Resume Exit_AddReference
End Function

Вы можете использовать эту функцию для установки ссылки на программу-пример Developer Solutions (Решения):

Sub SetSolutionsReference( )
═════Const strRefPath As String = "C:\Program Files\Microsoft Office" _
══════════& "\Office\Samples\Solutions. mdb"

═════If AddReference(strRefPath) = True Then
══════════MsgBox "Reference set successfully. "
═════Else
══════════MsgBox "Reference not set successfully."
═════End If
End Sub

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997