This example opens a module called Example Routines and then displays the Debug Window.
'***************** Code Start ******************
' Code by Terry Wickenden
Private Sub cmdDebug_Click()
'Opens a module and displays the debug window
DoCmd.OpenModule "Example Routines"
DoCmd.SelectObject acModule, "Example Routines", False
DoCmd.RunCommand acCmdDebugWindow
End Sub
'****************** Code End ********************