Formulario: Vincular y visualizar PDF

Saludos
Realice algo parecido para procedimientos, te explico

crea un modulo y pega el siguiente codigo
'Fichero
Function EscogeFichero(Tipo As Integer) As String
Dim wzhwndOwner As Long
Dim wzAppName As String
Dim wzDlgTitle As String
Dim wzOpenTitle As String
Dim wzFile As String
Dim wzInitialDir As String
Dim wzFilter As String
Dim wzFilterIndex As Long
Dim wzView As Long
Dim wzflags As Long
Dim wzfOpen As Boolean
Dim ret As Long

On Error GoTo EscogeFichero_Err
WizHook.Key = 51488399

wzhwndOwner = 0&
wzAppName = ""
If Tipo = 1 Then
wzDlgTitle = "Escoge fichero para guardar"
ElseIf Tipo = 2 Then
wzDlgTitle = "Escoja fichero de datos"
Else
wzDlgTitle = "Escoja fichero gráfico (Jpj,Gif etc)"
End If
wzOpenTitle = "Escoja fichero"
wzFile = String(255, Chr(0))
wzInitialDir = CurrentProject.Path & "\Documentos\"

If Tipo = 1 Then
wzFilter = "Cualquier fichero " _
& "(*.*)"
ElseIf Tipo = 2 Then
wzFilter = "Fichero de datos " _
& "(*.mdb;*.mde;*.accmb;*.accmd;*.accdr)"
Else
wzFilter = "Fichero Gráfico " _
& "(*.jpg;*.gif;*.bmp)"
End If
wzFilterIndex = 1
wzView = 1
wzflags = 64
wzfOpen = True

ret = WizHook.GetFileName(wzhwndOwner, _
wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
wzInitialDir, wzFilter, wzFilterIndex, _
wzView, wzflags, wzfOpen)

' Si no se ha pulsado el botón Cancelar (-302)
If ret <> -302 Then
EscogeFichero = wzFile
Else
EscogeFichero = ""
End If
EscogeFichero_Exit:
Exit Function
EscogeFichero_Err:
MsgBox "Error nº " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
"en procedimiento EscogeFichero de Módulo EscogeFichero", vbCritical, "Aviso de error"
Resume EscogeFichero_Exit
End Function

Ojo tienes que crear una carpeta donde tienes la base de datos y colocarle el nombre de la carpeta a la funcion del modulo yo la tengo como Documentos

en el formulario registro crea un cuadro de texto y un commando en el evento hacer click del comando colocas lo siguiente nom_cuandro_texto= EscogeFichero(1)
nom_cuandro_texto.SetFocus

*********************************************************************
Para visualizar el procedimiento
Application.FollowHyperlink nom_cuadro_texto que tiene la vinculacion