Access - Crear botón de búsqueda de archivos

On Error GoTo Err_RutaArchivo 'Esto es un control de errores por si cancelas el selector de arhivos

DoCmd.RunCommand acCmdInsertHyperlink

DoCmd.Save , ""

Exit Sub

Err_RutaArchivo:

MsgBox "Enlace de documento cancelado", vbInformation, "CANCELADO"

Me.RutaArchivo.Visible = True

Me.RutaArchivo.SetFocus

Me.cmdRuta.SetFocus

Me.RutaArchivo.Visible = False

Dim fFile As Office.FileDialog

Dim vFile As Variant

Set fFile = Application.FileDialog(msoFileDialogFilePicker)

With fFile

    .AllowMultiSelect = False

    .InitialFileName = "C:\Users\" & Environ$("username") & "\Desktop\"

    .Title = "SELECT FILE"

    .Filters.Clear

    .Filters.Add "PDF Files", "*.pdf"

'    .Filters.Add "All Files", "*.*"

    If .Show = True Then

        For Each vFile In .SelectedItems

            Me.RutaArchivo = vFile & "#" & vFile & "#"

        Next vFile

'    Else

'       MsgBox "No Selection Made", vbInformation + vbOKOnly, "PDF File"

    End If

End With