Access - codigo para abrir imagenes con File Dialog Open

Hola:
Yo necesito el codigo para cargar imagenes desde un cuadro de dialogo de Abrir
Ahorita tengo un codigo que me pasaron que en un textbox le tengo que escribir todo el path de la imagen para que se cargue en mi formulario.(Hice esto porque mando llamar las imagenes de una carpeta porke no kiero que las imagenes se guarden fisicamente en mi BD para economizar espacio)
Y esta bien pero esta muy suceptible a errores al teclear mal la ruta por eso necesito el cuadro de dialogo para abrir imagenes.
Si alguien me lo pudiera proporcionar se lo agradeceria mucho..
Atte.
Armando Ch.

Si todo esta muy bien, pero cuando quieres eliminar una imagen como lo haces desde access.??

Aqui tienes una funcion que devuelve la cadena con la ruta y utiliza la ventana de dialogo de windows para localizar la imagen.

Function Getpath(comodin As String) As String
Dim chance As OPENFILENAME
Getpath = " "
With chance
.lStructSize = Len(chance)
'.hwndOwner = Screen.ActiveForm.Hwnd
.hInstance = Application.hWndAccessApp
.lpstrFilter = "Archivos " & Chr(0) & comodin & Chr(0)
.nFilterIndex = 1
.lpstrFile = String(257, " ")
.nMaxFile = Len(chance.lpstrFile) - 1
.lpstrFileTitle = chance.lpstrFile
.nMaxFileTitle = chance.nMaxFile
.lpstrInitialDir = "C:\revelado\"
.lpstrTitle = "Localizar FICHERO"
.Flags = 4
End With

If GetOpenFileName(chance) = 1 Then
Getpath = Left(chance.lpstrFile, Len(Trim(chance.lpstrFile)) - 1)
End If
End Function