[Resolvido]Formulario com uma imagem para cada registro

Tenho uma tabela onde cadastro meus produtos, resolvi criar um formulário onde eu pudesse cadastrar a foto dos meus produtos, na verdade a foto não fica armazenada no BD, apenas o caminho. Dai coloquei no formulário um controle do tipo imagem que aponta para uma imagem em: C:\Users\Informatica\Documents\sem_foto.jpg trata-se de uma imagem onde tem escrito "produto sem imagem", ela permanece enquanto eu não cadastrar um novo produto e sua respectiva imagem. Ao lado desse controle coloquei um botão que ao ser clicado, abre uma caixa de dialogo que me permite inserir a imagem correspondente aquele produto. No evento ao clicar desse botão, coloquei o código:

Private Sub btn_imagem_Click()

'Declare a variable as a FileDialog object.
Dim fd As FileDialog

'Create a FileDialog object as a File Picker dialog box.
Set fd = Application.FileDialog(msoFileDialogFilePicker)

'Declare a variable to contain the path
'of each selected item. Even though the path is a String,
'the variable must be a Variant because For Each...Next
'routines only work with Variants and Objects.
Dim vrtSelectedItem As Variant

'Use a With...End With block to reference the FileDialog object.
With fd

'Change the contents of the Files of Type list.
'Empty the list by clearing the FileDialogFilters collection.
.Filters.Clear

'Add a filter that includes all files.
.Filters.Add "All files", "*.*"

'Add a filter that includes GIF and JPEG images and make it the first item in the list.
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

'Use the Show method to display the File Picker dialog box and return the user's action.
'The user pressed the action button.
If .Show = -1 Then

'Step through each String in the FileDialogSelectedItems collection.
For Each vrtSelectedItem In .SelectedItems

'vrtSelectedItem is a String that contains the path of each selected item.
'You can use any file I/O functions that you want to work with this path.
'This example simply displays the path in a message box.
'MsgBox "Path name: " & vrtSelectedItem

Me.txt_imagem.Picture = vrtSelectedItem
Me.txt_imagem.Requery

'Me.TextboxPersonFilepath.Value = "File path: " & vrtSelectedItem
Next vrtSelectedItem
'The user pressed Cancel.
Else
End If
End With

'Set the object variable to Nothing.
Set fd = Nothing
End Sub

Esse código não é de minha autoria, encontrei num site gringo de access. Bom, eu consigo colocar a imagem no campo correspondente, o problema, é que quando eu vou para o próximo registro, ele mantêm a imagem do anterior e se neste eu colocar outra imagem, ela fica também no primeiro registro ou seja, ela fica em todos. Sei que estou esquecendo de fazer algo bobo, mas não consigo me lembrar do que seja.

Olá Marcos,
Aqui no fórum não falta exemplos, com uma "Busca" por vezes encontramos o que pretendemos.
Vejas os vários exemplos deste tópico.
Abraço

Obrigado Teixeira.

Olá,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço