foreach (var type in new[] {typeof(VbeNativeApi7), typeof(VbeNativeApi6), typeof(Vb6NativeApi)})
    {
        try
        {
            var runtime = (IVbeNativeApi)Activator.CreateInstance(type);
            runtime.GetTimer();
            return runtime;
        }
        catch
        {
            // we shouldn't be here.... Rubberduck is a VBA add-in, so how the heck could it have loaded without a VBE dll?!?
            throw new InvalidOperationException("Cannot execute DoEvents; the VBE dll could not be located.");

            var accessor = declaration.DeclarationType.HasFlag(DeclarationType.PropertyGet) ? "(get)"
                         : declaration.DeclarationType.HasFlag(DeclarationType.PropertyLet) ? "(let)"
                         : declaration.DeclarationType.HasFlag(DeclarationType.PropertySet) ? "(set)"
                         : string.Empty;

            var tabCaption = $"{declaration.IdentifierName} {accessor}".Trim();

Public Function AttachQuery(ByVal argQueryName As String, ByRef argSql As String, Optional ByVal argReplace As Boolean = False) As Boolean
    'got this from connectionstrings.com/questions/6561/…
    'added the resume to errx_exit part, and removed the username password part since we only use trusted connections
    If Not BasicInclude.DebugMode Then On Error GoTo Error_Handler Else On Error GoTo 0
    Dim qry As QueryDef

Private Sub createQueryDefs()
    Dim s As Variant
    Dim i As Long
    'Made this pretty just for you Philipe
    s = Array( _
        Array("qryGetProgramPath", "PARAMETERS paraID Short; SELECT dbo_Dict_Application_Info.LivePath FROM dbo_Dict_Application_Info WHERE (((dbo_Dict_Application_Info.ApplicationID) = [paraID])) ORDER BY dbo_Dict_Application_Info.ApplicationID;"), _
        Array("qryTemp", "Select 1=1"), _
        Array("qryTrainingStuff", "SELECT dbo_Training_Lookup_TrainingList.* FROM dbo_Training_Lookup_TrainingList;"), _