>Thanks for the help Sergey, but what I really need is to show the MSQuery Form so the user can build its own query and return this Select statement to excel.

You can use WSH to send keystrokes to Excel to invoke Edit Query dialog

oShell = Createobject("wscript.shell")
oShell.AppActivate(oExcel.Caption)
oShell.SendKeys("%DDE")