Access - es posible hacerlo en Access??

hola, tengo una duda a ver si me la pueden aclarar, he hecho este ejemplo

Private Sub Comando0_Click()
Dim TITULO
TITULO = "EJECUTAR"
AppActivate TITULO
SendKeys "CMD", True
SendKeys "{ENTER}", True
End Sub

en resumidas lo que hace, es abrir directamente la ventana del MsDos, como ven en el procedimiento le asigno a la variable el nombre de la ventana y despues la activo, claro esta que para que esto funcione tengo antes yo que abrir la ventana "Ejecutar" y lo que quiero es hacer esta operacion solo con el click, quizas sea usando la api Findwindows, o no??, en resumidas como puedo saber como windows abre la ventana "Ejecutar", o como se llama a esa ventana desde una API, UFF creo que me he liado, espero haberme explicado, y que esto no sea tan complicado, muchas gracias, saludos

Hola
Esto lo tenia guardado de una respuesa de Enrique para abrir cualquier archivo.
En la sección declaraciones del Formulario

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Para abrir el msdos (en el xp)

Private Sub MiBoton_Click()
Dim nArchivo As String
nArchivo = "C:WINDOWSsystem32cmd.exe"
ShellExecute Me.hwnd, "open", nArchivo, "", "", 1
End Sub

Un saludo

gracias mi menda, muy agradecido