Some help with a .vbs script please...

I am using the below script to open an access database. It works, but in Access2007, the Access startup screen displays first, then the database opens. It looks clunky, so I was hoping to hide the Access window through the script and then unhide it with some startup code in the database itself.

However, I can't get Access to hide. Even when I insert the line:
acApp.Visible = False as shown below, the script runs the same as when that line does not appear. Any thoughts? :confused

Code:

sub FireDB

CloseCmdWindow()
dim PathToMDE
PathToMDE = "U:\db\mydatabase.mdb"

Set acApp=CreateObject("Access.Application")
acApp.usercontrol=true
acApp.Visible = False
acApp.DoCmd.RunCommand (10) 'accmdappmaximize
acApp.DoCmd.Hourglass True


'acApp.AutomationSecurity=1  ' low
acApp.OpenCurrentDatabase PathToMDE
acApp.DoCmd.Hourglass false
Set acApp=Nothing
Set fs = nothing

 

I'm not familiar with Access VBA but it seems strange to me that you first hide the window but then you let access maximize the window. Maybe you should rearrange the lines like that:

Code:

sub FireDB

CloseCmdWindow()
dim PathToMDE
PathToMDE = "U:\db\mydatabase.mdb"

Set acApp=CreateObject("Access.Application")
acApp.usercontrol=true
acApp.Visible = False
acApp.DoCmd.Hourglass True


'acApp.AutomationSecurity=1  ' low
acApp.OpenCurrentDatabase PathToMDE
acApp.DoCmd.Hourglass false
acApp.Visible = True
acApp.DoCmd.RunCommand (10) 'accmdappmaximize
Set acApp=Nothing
Set fs = nothing

Regards
GermanOne