実行時エラー'2147467259(80004005)'を解決した

Windows7でAccess2013を使用しています。
IE操作をしようとしたが、以下のエラーがでた。
実行時エラー'2147467259(80004005)': 'Busy'メソッドは失敗しました:'IWebBrowser2"オブジェクト

色々ググッたが原因が分からなかった。
すると以下のコードで直った。
Set objIE = CreateObject("InternetExplorer.Application")

Set objIE = New InternetExplorerMedium

奥深い、AccessVBA