Abrir cuadro dialogo - Archivos
Con este código podremos mostrar el cuadro de dialogo para abrir un archivo y almacenar la ruta en el campo de la base que especifiquemos.
Dim f As Object Set f = Application.FileDialog(3) f.AllowMultiSelect = False If (f.Show) Then Me.Campo = f.SelectedItems.Item(1) End If If IsNull(Me.Campo) Then Me.Campo = "" ' Ponemos el campo en blanco ya que no se a seleccionado nada End If