Pardon textbox yazmasını yapmadık. Kodları Aşağıdaki ile değiştirin Linkleride tabloya yazar.
Kusura Bakmayın.

Private Sub Command17_Click()

Me.link1 = LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")

End Sub

Private Sub Command18_Click()

Me.link2 = LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")

End Sub



Private Sub Command19_Click()

Me.link3 = LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")

End Sub

Private Sub Command20_Click()

Me.link4 = LocalizarArquivo("c:\", "Dosyayı Seçiniz - AccessTR.NET", "*.jpg")

End Sub