On Error GoTo errhandler
Set ref = References("LinkManager")
Exit Sub
errhandler:
Set ref = References.AddFromFile(CurrentProject.path & "\LinkManager.mde")
End Sub
Public Sub RemoveRef()
Dim ref As Reference
On Error Resume Next
Set ref = References("LinkManager")
References.Remove ref
End Sub