Crear un botón en un formulario de access para abrir una carpeta

Buen día quisiera saber como ejecutar esta acción lo intenté de la siguiente manera:

Private Sub Comando49_Click()
Dim Retval As Integer
Retval =Shell("explorer.EXE /e, /root, " & "(ruta de carpeta)", 1)
End Sub

Pero no funciona lo que hace es que me habre mis documentos pero no hasta donde yo quiero que llegue es como tres carpetas más.

Espero puedan ayudarme muchas gracias!.