Abrir pdf en access

Es que quisiera ver si me puedes apoyar de como abrir un pdf desde access encontré uno en la wep pero ya intente de hacerlo pero no me sale.
Esto lo hace en un modulo
Private Declare Function Ejecuta _
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
Function LanzaDocumento(Documento As String) As Long
'esta te va a servir
para todo: Pdf,Word, Excel, 'imágenes etc etc
LanzaDocumento = Ejecuta(1,
vbNullString, Documento, _
vbNullString, "", 1)
RutaCompleta = ruta &
NombreDeArchivo & ".pdf"
y en evento del form al hacer click:
If
LanzaDocumento("C:\FoliosPDF\Inventario.pdf") <> 33 Then
MsgBox "No se
ha encontrado el fichero. Ruta errónea", _
vbExclamation, "AVISO"
End
If
End Sub
Todo esto en un formulario que le llama Folios y los datos están en una tabla que se llama PDF-folios con los campos id, ruta, NoFolio
ya intente pero no me sale