Public Sub subTestImportModuleFromFileAccess()
    Dim indexReference As Long
    Dim flagNotAddReference As Boolean
    Dim nameProject As String
    Dim referenceProject As Object
    
    nameProject = "Access9"
    For indexReference = 1 To References.Count
        Debug.Print References.Item(indexReference).Name
        If CStr(References.Item(indexReference).Name) = nameProject Then
            flagNotAddReference = True
            Call References.Remove(References.Item(indexReference))
            Exit For
        End If
    Next indexReference
    If flagNotAddReference = False Then
        Call References.AddFromFile("C:\tmp\testDB.mdb")
    End If
    Set referenceProject = CreateObject(nameProject)
        nameProject = nameProject
    Set referenceProject = Nothing
End Sub