Soru Kayıtlı kişilere resim eklensin?

[s.savas]

Merhaba arkadaşlar.
Daha önce de açmış olduğum konularda değerli uzmanlarımızın yardımları ile access veritabanında kayıtlı kişilere resim atanması gerçekleşmişti, ancak kayıt güncelleme esnasında yaşanan sorun giderilemedi. Çözümün farklı bir yöntemle, resimlerin veritabanına kaydedilmeden, kişilerin adları veya kimlik numaraları ile eşleşerek kişilere atanan resimlerin Resim klasöründe bulunması ile sorunun çözülebileceğini umuyorum.
Yeni kayıtta gerekli bilgiler text ve combolara girildikten sonra ve/veya kayıt güncelleme için dblklick ile listbox taki veriler ilgili nesnelere yüklendikten sonra aşağıdaki kod ile resim image nesnesine alınıyor.

1- Yeni kayıt ve/veya güncelleme işleminde; image1 nesnesine alınan resim, kişinin adı soyadı veya kimlik numarasını alarak bir klasöre kaydedilsin.
2- listbox dblklick olayında kişiye atanan resim image1 nesnesine yüklensin.
Yardımcı olacak arkadaşlara teşekkür ederim.

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call NesneyeResimYukle
UserForm1.Hide
UserForm1.Show
End Sub
Function NesneyeResimYukle() As String
    If Image1.Picture Is Nothing Then
        GoSub Resimyukle
    Else
        soru = "Mevcut resmi değiştirmek istediğinizden emin misiniz?"
        cevap = MsgBox(soru, vbYesNo + vbQuestion)
        Select Case cevap
            Case vbYes
                GoSub Resimyukle
            Case vbNo
                Exit Function
        End Select
    End If
Resimyukle:
Image1.Picture = LoadPicture("")
Dim DsySec As Variant
DsySec = Application.GetOpenFilename _
    (FileFilter:="Seçilen Dosyalar," & "*.jpg;*.jpe;*.gif;*.jpeg;*.ico", _
        Title:="Lütfen Resim seçiminizi yapınız")
If DsySec <> False Then
    Image1.Picture = LoadPicture(DsySec)
Else
    MsgBox "Resim seçilmedi"
    Exit Function
End If
    NesneyeResimYukle = DsySec
End Function