Selecting An Image

So far I have used this code:

Private Sub Form_AfterUpdate()
On Error Resume Next
If IsNull(Me![ImagePath]) Then
Me![ImageFrame].Picture = ""
Else
Me![ImageFrame].Picture = Me![ImagePath]
End If
End Sub

Private Sub Form_Current()
On Error Resume Next
If IsNull(Me![ImagePath]) Then
Me![ImageFrame].Picture = ""
Else
Me![ImageFrame].Picture = Me![ImagePath]
End If
End Sub

To make a form which will show a picture (different for each record) if the field 'ImagePath' has an entry in it. If not, it does not show.

The table containing the image is 'tblAnimal' and the field name where the path is stored is 'ImagePath.'

I would like my user to be able to click a button on the form 'frmAnimal' which says 'Add/Change Picture.'

This would then open a File Dialog window where they can navigate to an image (.jpg or .bmp) and select it.

The file path of this image will be subsequently placed into the 'ImagePath' field of the current record that the form is showing (based on 'tblAnimal.'

I saw a similar technique on the Northwind example database but this uses an extra part and I am a little confused as to which VBA code I need as the OnClick Event of the button.

New to all of this :confused: