Cómo insertar objetos OLE desde una carpeta a una tabla automáticamente

intento cargar un archivo a un campo ole en formulario de access usando el siguiente código , tabla y form pero me muestra un error y no lo he podido depurar alguien me puede ayudar.

Método para importar objetos OLE
--------------------------------
1. Cree la siguiente tabla en vista de diseño. Guárdela como
tblLoadOLE
Tabla: tblLoadOLE
------------------------
Campo llamado: OLEID
Tipo de datos: AutoNumerico
Campo llamado: OLEPath
Tipo de datos: Texto
Tamaño de campo: 255
Campo llamado: OLEFile
Tipo de datos: Objeto OLE
Clave principal: OLEID
2. Usando el asistente de Autoformulario en columnas, cree un nuevo
formulario basado en la tabla tblLoadOLE y guárdelo como
frmLoadOLE.
3. Abra el formulario frmLoadOLE en modo diseño.
4. Inserte tres Cuadros de texto independientes en la sección de
Encabezado del formulario.
Formulario: frmLoadOLE
------------------------
Cuadro de texto:
Nombre: SearchFolder
Cuadro de texto:
Nombre: SearchExtension
Cuadro de texto:
Nombre: OLEClass
5. Inserte un botón de comando en el formulario:
Botón de comando
----------------
Nombre: cmdLoadOLE
Título: Cargar ficheros
6. Escriba el siguiente código en el evento "Al hacer click" del botón
cmdLoadOLE (seleccionando Procedimiento de evento)
Private Sub cmdLoadOLE_Click()
Dim MyFolder As String
Dim MyExt As String
Dim MyPath As String
Dim MyFile As String
Dim strCriteria As String
MyFolder = SearchFolder
' Obtienen la ruta de búsqueda.
MyPath = MyFolder & "\" & "*." & [SearchExtension]
' Obtiene la primera línea en la búsqueda con la extensión.
MyFile = Dir(MyPath, vbNormal)
Do While Len(MyFile) <> 0
[OLEPath] = MyFolder & "\" & MyFile
[OLEFile].Class = [OLEClass]
[OLEFile].OLETypeAllowed = acOLEEmbedded
[OLEFile].SourceDoc = [OLEPath]
[OLEFile].Action = acOLECreateEmbed
' Busca el siguiente fichero OLE en el directorio.
MyFile = Dir
' Va a un nuevo registro en el formulario.
DoCmd.DoMenuItem acFormBar, acEditMenu, 12, 4, acMenuVer70
Loop
End Sub
7. Guarde el formulario frmLoadOLE y ábralo en modo formulario.
8. Escriba la ruta completa del directorio en el que tiene almacenados
los ficheros OLE en el cuadro de texto SearchFolder.
9. Escriba la extensión del tipo de fichero que se insertarán en la
tabla, como .BMP, .JPG, .DOC, .XLS, .TIF o .GIF en el cuadro de
texto SearchExtension. No escriba el punto delante de la extensión.
Por ejemplo, para insertar ficheros de mapas de bits, escribir
"bmp" (sin comillas).
10.Escriba el nombre de la clase de ese tipo de fichero en el cuadro
de texto OLEClass. Por ejemplo, Paint.Picture para ficheros BMP.
NOTA: Para determinar el nombre de la clase de un objeto OLE,
consulte la documentación de la aplicación que crea ese objeto.
11.Clic en el botón "Cargar ficheros". Todos los ficheros
especificados en los cuadros de texto del formulario son
insertados en la tabla tblLoadOLE.