Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Вот так программно подключается DAO
А как программно подключить другие Reference
Например вот имеется AddIn.Scaner45
Вручную понятно как ,а как программно подскажите.....

Public Function CheckReferenceDAO() As Boolean On Error GoTo CheckReferenceDAO_err Dim ref As Reference, i As Integer Const strExcelGUID = "{00025E01-0000-0000-C000-000000000046}" 'Const strExcelReferenceName = "*DAO*"       For Each ref In References   If ref.BuiltIn Then GoTo refNext   If ref.IsBroken Then     References.Remove ref     GoTo refNext   End If '  If ref.Name Like strExcelReferenceName Then   If InStr(1, ref.Name, "DAO", vbTextCompare) > 0 Then     CheckReferenceDAO = True     GoTo CheckReferenceDAO_exit   End If refNext:  Next ref On Error Resume Next  For i = 5 To 2 Step -1     References.AddFromGuid strExcelGUID, 1, i   If Err = 0 Then     CheckReferenceDAO = True     GoTo CheckReferenceDAO_exit   End If     Err.Clear  Next i   CheckReferenceDAO_exit:     Set ref = Nothing     Exit Function      CheckReferenceDAO_err:     Resume CheckReferenceDAO_exit End Function