Sergey, Thanks a lot !
The best way till now to solve the problem.

[ ]'s
Peter

>>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")
>