Access to send commands to IE9

[Gandalph067]

Greetings,

I attempting to start a web based paging system internal to my company. I set the IE application, it will start the program but when it gets to IE.Visible = True I get an error "Run-Time error '-2147417848(80010108)': Automation error the object invoked has disconnected from its clients."

the program itself runs, shell opens two separate windows holding the program, both IE windows. But it will not go any further, just the error. I am trying to control the program from access and send paging info the form submit and close.

Any thoughts would be appreciated, thank you in advance

Function FillInternetForm()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
'create new instance of IE. use reference to return current open IE if
'you want to use open IE window. Easiest way I know of is via title bar.
IE.Navigate "

http://vhasuxpag1/orchestrator/"

'go to web page listed inside quotes
IE.Visible = True
While IE.Busy
DoEvents 'wait until IE is done loading page.
Wend
IE.Document.All("q").Value = "what you want to put in text box"

IE.Document.All("gbqf").Submit


End Function