Splashfrm takes to long to load

[sdawson]

My db loads with a splash form with the following code.
There are a couple of command buttons for Quit and to allow further access. Problem is it still takes a while to load!
Db is compacted on exit.

Any ideas to speed up?

Thanks

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)




'Hide Toolbars

Dim i As Integer

DoCmd.Maximize

For i = 1 To CommandBars.Count
    CommandBars(i).Enabled = False
Next i

'hide Database Window
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide

stdtsk

End Sub
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click


    DoCmd.Quit

Exit_Command5_Click:
    Exit Sub

Err_Command5_Click:
    MsgBox Err.Description
    Resume Exit_Command5_Click
    
End Sub
Private Sub Command15_Click()
On Error GoTo Err_Command15_Click


    Dim strInput As String
    Dim strMsg As String
    
    strMsg = "Please key the password to allow access."
    strInput = InputBox(Prompt:=strMsg, Title:="Password")
    If strInput = "vixen" Then 'password is correct
    DoCmd.OpenForm "mainmenufrm"

    Else 'password is incorrect
        MsgBox "Incorrect Password!"
        Exit Sub
    End If


Exit_Command15_Click:
    Exit Sub

Err_Command15_Click:
    MsgBox Err.Description
    Resume Exit_Command15_Click
    
End Sub