[Resolvido]Janela para anexar item

Primeiramente um bom dia a todos!

Bom, meu problema é o seguinte, eu criei um controle de ObjetoOLE no BE para armazenar fotos, mas para armazenar as fotos eu preciso clicar com o direito e selecionar a foto. E bem eu ja criei um botão que adiciona sozinho, mas eu preciso minimizar o access ir até a pasta copiar o destino e depois colar em uma txtbox, tem algum jeito de abrir uma janela para anexar?

Bom dando uma atualizada aqui....
Eu encontrei o código: (Que funciona perfeitamente )

Código:

Public Function Localizar(strTitulo As String)
Dim Find As Office.FileDialog
On Error GoTo trataerro
Set Find = Application.FileDialog(msoFileDialogFolderPicker)
With Find
.AllowMultiSelect = True
.ButtonName = "Selecionar"
.InitialFileName = "c:\"
.InitialView = msoFileDialogViewList
'.Title = "Selecione a pasta de destino"
.Title = strTítulo
End With
If Find.Show = -1 Then
    Localizar = Find.SelectedItems(1)
End If
sair:
    Exit Function
trataerro:
    Localizar = ""
    Resume sair:
End Function

Ps: Ainda não sei onde fica esse botão resolvido... Alguém poderia me mandar um print mostrando onde é?