' > Access 2000
DoCmd.RunCommand acCmdLinkedTableManager
'Access 2000
Application.CommandBars("Menu Bar").Controls("Tools").Controls("Database Utilities"). _
Controls("Linked Table Manager").Execute
'Access 2000
Application.CommandBars("Menu Bar").Controls("Tools").Controls("Database Utilities"). _
Controls("Linked Table Manager").accDoDefaultAction