Coding for diff versions of "Microsoft ActiveX Data Objects" Library

Sub Workbook_Open()

          ' For Error Reporting
          Dim sErrorDescription As String
          Const sProcSig As String = MODULE_NAME & "Workbook_Open"
          'On Error Resume Next
1         On Error GoTo Error_In_WorkbookOpen

2         With ActiveWorkbook
          
              'Name cells for 'LAST UPDATE STATISTICS'
3             .Names.Add Name:="StartDate", RefersTo:="=Update!$E$5"
4             .Names.Add Name:="EndDate", RefersTo:="=Update!$E$8"
5             .Names.Add Name:="FilterField", RefersTo:="=Update!$E$11"
6             .Names.Add Name:="FilterFieldIndex", RefersTo:="=Update!$E$12"
7             .Names.Add Name:="LastUpdated", RefersTo:="=Update!$E$14"
8             .Names.Add Name:="UpdateStatus", RefersTo:="=Update!$E$15"
              
              'Name cells for 'VB Libraries Info'
9             .Names.Add Name:="NumFoundLibs", RefersTo:="=Update!$E$20"
10            .Names.Add Name:="NumMissingLibs", RefersTo:="=Update!$E$21"
11            .Names.Add Name:="NumBrokenLibs", RefersTo:="=Update!$E$22"
              
              ' Clear values for 'VB Libraries Info' on 'Update' worksheet
12            Call ClearVbReferences

13        End With

14        With Worksheets("Update")
          
              ' Date/Time Format
15            .Range("StartDate").NumberFormat = "dd mmm yyyy"
16            .Range("EndDate").NumberFormat = "dd mmm yyyy"
17            .Range("LastUpdated").NumberFormat = "dd mmm yyyy"
          
              ' Fill combo box
18            .cbFilterField.Clear
19            .cbFilterField.AddItem ("CallTime")
20            .cbFilterField.AddItem ("TechComp")
21            .cbFilterField.AddItem ("CloseDate")
22            .cbFilterField.AddItem ("Calc Compl Date")
              ' Set default value
23            .cbFilterField.ListIndex = 0
          
24        End With
          
25        Call FixDTPickers

      ' ===== Exit Handler =====
Exit_WorkbookOpen:
26        Application.ScreenUpdating = True
27        Exit Sub

      ' ===== ERROR HANDLER =====
Error_In_WorkbookOpen:

28        With Err
29            sErrorDescription = "Error '" & .Number & " " & _
                  .Description & "' occurred in " & sProcSig & _
                  IIf(Erl <> 0, " at line " & CStr(Erl) & ".", ".")
30        End With

31        Select Case MsgBox(sErrorDescription, vbAbortRetryIgnore, "Error in " & sProcSig)
              Case vbRetry
32                Resume
33            Case vbIgnore
34                Resume Next
35            Case Else
36                Resume Exit_WorkbookOpen
37            End
38        End Select
          
End Sub

Public Sub DataExtract()
...[more code]...              
          ' Set 'last updated' statistics (dates)
4         Application.StatusBar = False
5         Application.ScreenUpdating = False
6         With ActiveWorkbook.Worksheets("Update")
              
              ' Obtain the start & end dates from the DTPickers
              ' this may cause errors... consider late binding of DTPickers
7             On Error Resume Next
8             dteStartDate = Format(.DTPickerStart, "yyyy-mm-dd")
9             dteEndDate = Format(.DTPickerEnd, "yyyy-mm-dd")
10            filterField = .cbFilterField.ListIndex
11            On Error GoTo Error_In_DataExtract
          
12            .Select
13            .Range("StartDate").Value = dteStartDate
14            .Range("EndDate").Value = dteEndDate
15            .Range("FilterField").Value = .cbFilterField.Value
16            .Range("FilterFieldIndex").Value = filterField
17            .Range("LastUpdated").Value = Date
18            .Range("UpdateStatus").Value = "Started"
              
19        End With
...[more code]...              

' ===== ERROR HANDLER =====
Error_In_DataExtract:
          
          'On Error Resume Next
110       Application.StatusBar = "Error occurred..."
111       With ActiveWorkbook.Worksheets("Update")
112           .Select
113           .Range("UpdateStatus").Value = "Failed"
114       End With
...[more code]...

Sub AddReference(sName As String, sGuid As String)
'
' Attempts to remove then add the VB Reference
' Potential to fix reference without user intervention per:
'   http://www.vbaexpress.com/kb/getarticle.php?kb_id=267
'   http://www.mrexcel.com/forum/showthread.php?t=442346
' Call AddReference( "ADODB", "{00000205-0000-0010-8000-00AA006D2EA4}" )
'
    
    ' For Error Reporting
    Dim sErrorDescription As String
    Const sProcSig As String = MODULE_NAME & "AddReference"
    On Error GoTo Error_In_AddReference
    
    With ActiveWorkbook.VBProject.References
        .Remove .Item(sName)
        .AddFromGuid sGuid, 0, 0
    End With
    
    ' ===== Exit Handler =====
    Exit Sub

' ===== ERROR HANDLER =====
Error_In_AddReference:
    
    With Err
        sErrorDescription = "Error '" & .Number & " " & _
            .Description & "' occurred in " & sProcSig & _
            IIf(Erl <> 0, " at line " & CStr(Erl) & ".", ".")
    End With

    Select Case Err.Number
       Case Is = -2147352565
            ' Ignore, as already removed. Error: Incorrect function
            'MsgBox "VB Reference " & sName & " already removed"
       Case Is = 32813
            'Ignore, already in use. Error: Name conflicts with existing module, project, or object library
            'MsgBox "VB Reference " & sName & " already installed"
       Case Else
            'An unknown error was encountered, so alert the user
            MsgBox "Unable to add VbReference " & sName _
                & vbCrLf _
                & vbCrLf & sErrorDescription _
                , vbInformation, "Error in " & sProcSig
    End Select
    Resume Next
        
End Sub