Add image in MS-Access

Private Sub cmdAddImage_Click()
    On Error GoTo cmdAddImage_Err
    Dim strFilter As String
    Dim lngflags As Long
    Dim varFileName As Variant
    strFilter = "All Files (*.*)" & vbNullChar & "*.*" _
              & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"
    lngflags = tscFNPathMustExist Or tscFNFileMustExist _
               Or tscFNHideReadOnly
    varFileName = tsGetFileFromUser( _
                  fOpenFile:=True, _
                  strFilter:=strFilter, _
                  rlngflags:=lngflags, _
                  strDialogTitle:="Please choose a file...")
    If IsNull(varFileName) Then
    Else
        Me![memProperyPhotoLink] = varFileName
        Forms![frmProperties].Form.Requery
    End If
cmdAddImage_End:
    On Error GoTo 0
    Exit Sub
cmdAddImage_Err:
    Beep
    MsgBox Err.Description, , "Error: " & Err.Number _
                            & " in file"
    Resume cmdAddImage_End
End Sub