Private g_oldbars as collection
Private Function ShowMenu() As Integer
    Dim i As Integer
    Set g_oldbars = New Collection
'    ShowMenu = g_menu.CreateTop("HauptMenu")
    For i =  1  To ShowMenu -  1 
        If Application.CommandBars(i).Visible Then
            g_oldbars.Add i, Application.CommandBars(i).name
            Application.CommandBars(i).Visible = False
        End If
    Next i
End Function

'Restore command bars, exit access
Public Sub IsOut()
    Set g_menu = Nothing
    Application.Quit
End Sub
Public Sub StateRestore()
    Dim i As Integer
    For i =  1  To g_oldbars.Count
        Application.CommandBars(g_oldbars.item(i)).Visible = True
    Next i
    NewTitle dbname
End Sub