Dim RetVal As Long
RetVal = ShellExecute(Me.hWnd, "open", "C:\Documents and Settings\Amodio\Desktop\db11.mdb", "", "", 1)

DoCmd.OpenReport "Amodio_Articoli", acViewPreview ' , OpenMode, FilterName


-->certo nn nasconde la barra degli strumenti di access
ma funziona!!