ник: kot_k_k
поле -тип данных - Гиперссылка
на форме на него
Private Sub Chert_Put_DblClick(Cancel As Integer)
SendKeys "%ft"
End Sub
SendKeys "%ft" - равносильно нажатию последовательному Alt+f и Alt+t
выскакивает окно вставить Гиперссылку и все по нажтию в окне оно само заносит в поле выбранный путь