Carlos: Tal como imaginaba te Falta la Referencia>>
Microsoft Office 14.0 Object Library
Y de otro lado habías modificado solo parte del Código.
Modificando Todo el código queda:
Private Sub Comando115_Click()
Dim vArchivo As String
'Asignamos el valor de la variable al archivo que seleccionemos al navegar.
'Para ello utilizamos la llamada a la función buscaArchivo
vArchivo = buscaArchivo6()
'Una vez tenemos el archivo seleccionado (junto con su ruta completa) pasamos
'el valor al campo Archivo
If IsNull(vArchivo) Or vArchivo = "" Then
Exit Sub
Else
Me.Archivo6.Value = vArchivo
End If
DoCmd.GoToControl "Archivo6"
End Sub
En cualquier caso te mando tu BD modificada. Saludos >> jacinto