Открытие файла - VB (62941)

Формулировка задачи:

есть в табличке поле ole на вывод фото в форме.есть запрос на поиск игрока по фамилии в форме. в поле где фото выводится фото и открывается по клику процедурой

Private Sub Pla_fot_Click()
 
Dim s As New Shell

s.Open "e:\1.jpg"
End Sub

проблема, одна и таже картинка выводится при выводе любой фамилии. подскажите что в коде изменить и дописать, чтоб при фамилии можно было по щелчку открыть соответствующее ей фото

Решение задачи: «Открытие файла»

textual
                            Листинг программы 
                        
                            Private Sub Pla_fot_Click()