Создайте байтовый массив, достаточно большой, чтобы содержать объект OLE:
Dim bArr(Len(<OLE Object Field>)) as Byte
Прочитайте в первой строке столбца объекта OLE и поместите его в массив байтов.
Для файла GIF байты с 0 по 2 будут иметь значение ASCII "GIF".
Для файла JPEG байты с 6 по 9 обычно имеют значение «JFIF».
Для файла PNG байты с 1 по 3 будут иметь значение ASCII "PNG".
TIFF сложнее, поскольку существует так много разных стандартов TIFF.
Как только вы определили тип файла, вы можете использовать метод Брайана для сохранения файла