Я так понимаю, что этот  объект по-умолчанию присутствует в XP?

Только версии 1. Вообще же рекомендуется установка версии 2.0 (Download details: Windows® Image Acquisition Automation Library v2.0 Tool: Image acquisition and manipulation component for VB and scripting), доступной для загрузки отдельно. Требует наличия SP1. Хотя реальная скриптовая работа возможна как раз с версии 2.0.

P.S. Сейчас я данные сохраняю через GDI+.

Set objCommand = CreateObject("ADODB.Command")          
objCommand.ActiveConnection = connS                                
objCommand.CommandText = "INSERT INTO PHOTO (ID,PREVIEW_WIDTH,PREVIEW_HEIGHT,PREVIEW_RASTER,HIRES_WIDTH,HIRES_HEIGHT,HIRES_RASTER) VALUES ("&rsA1(0)&",256,307,?,256,307,?)"  ' Копируем фото из одной базы в другую
objCommand.CommandType = 1
objCommand.Parameters.Append( objCommand.CreateParameter("x",128,1,-1,data) )                                ' Создаем параметр 1
objCommand.Parameters.Append( objCommand.CreateParameter("y",128,1,-1,data) )                                ' Создаем параметр 2
objCommand.Execute()

Большое спасибо)))

У меня, почти при всех действиях, вылетает окно Windows XP с ошибкой Windows Based Script Host.

4. Как правильно задать вопрос, чтобы быть услышанным, пп. 4.11/4.12

Наверное, неправильно, ибо ни тот, ни другой код непосредственного отношения к базам данных не имеют.

Предварительно ознакомьтесь, как настроить сервер для работы через ADO на работу с полями типа BLOB в MySQL: MySQL :: Accessing MySQL BLOB columns using Visual Basic 6.

Например, вот так можно записать содержимое бинарного файла в поле «Image3» типа «MEDIUMBLOB» в таблицу «Table3» базы данных «test» MySQL:

Option Explicit

Const adOpenStatic     = 3
Const adLockOptimistic = 3

Dim objConnection
Dim objRecordSet

Dim objStream


Set objConnection   = WScript.CreateObject("ADODB.Connection")
Set objRecordSet    = WScript.CreateObject("ADODB.Recordset")

Set objStream        = WScript.CreateObject("ADODB.Stream")

objConnection.Open _
    "DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;UID=xxx;Password=xxx;Database=test;OPTION=16427"

With objRecordSet
    .Open "SELECT * FROM Table3", objConnection, adOpenStatic, adLockOptimistic
    
    .AddNew ' или поиск требуемой записи
    
    .Fields.Item("Image3").Value = ReadBinaryData("E:\Песочница\0017\01.jpg")
    .Update
    
    .Close
End With

objConnection.Close

WScript.Quit 0

Function ReadBinaryData(strFileName)
    Const adTypeBinary          = 1
    Const adReadAll             = -1
    
    With CreateObject("ADODB.Stream")
        .Type = adTypeBinary
        .Open
        .LoadFromFile strFileName
        ReadBinaryData = .Read(adReadAll)
        .Close
    End With
End Function

Размер передаваемых таким способом данных (суммарно всех полей) должен укладываться, как описано в статье по ссылке выше, в значение:
%ProgramFiles%\MySQL\MySQL Server 5.0\my.ini

…
[mysqld]
# The maximum size of a query packet the server can handle as well as
# maximum query size server can process (Important when working with
# large BLOBs).  enlarged dynamically, for each connection.
max_allowed_packet = …
…

В противном случае Вы можете получить ошибку:

Тут уже можно будет пробовать поманипулировать порциями данных посредством «AppendChunk» (я пока не пробовал).

После добавления содержимого файла изображения в MySQL Query Browser в поле «Image3» можно увидеть добавленную картинку (вот подойдёт ли такой формат Вашему АПК — не знаю, смотреть Вам).

Function SaveBinaryData(filename, byteArray)
    Const adSaveCreateOverWrite = 2
    With CreateObject("ADODB.Stream")
        .Type = 1 'adTypeBinary
        .Open
        .Write byteArray
        .SaveToFile filename, adSaveCreateOverWrite
        .Close
    End With
End Function

то этот должен в нее писать:

Function ReadBinaryFile(filename)
    Dim bArr
    With CreateObject("ADODB.Stream")
        .Type = 1 'adTypeBinary
        .Open
        .LoadFromFile filename
        bArr = .Read
        .Close
        ReadBinaryFile = bArr
    End With
End Function

или я неправильно думаю?

pavlikspb пишет:

класс....меня уже второй раз....
Ну хоть ни так обидно...потому что каждый раз с пользой, с чувством, мерой, расстановкой...

Если можно, ещё раз, пожалуйста, для меня и по-русски.

Этот скрипт предназначен для перекидывания данных из одной системы контроля доступа в другую. Со всеми полями которые надо было перекидывать по пользователям я разобрался, осталось только три поля:  1. Код карты
                                                                                                               2. Уменьшенное изоображение
                                                                                                               3. Изоображение в полный размер
самое важное из оставшихся полей было - код карты. Вот я с ним намучился, строил невероятные алгоритмы, добавлял или отнимал смещение, а оказалось все банально - надо было всего лишь перевести данные из десятичного формата в шестнадцатиричный - это был первый раз. А вот это второй - я беру файл bmp и через программный комплекс загружаю в базу. Загружаю bmp, значит думаю и хранит он в bmp, а оказывается нет.
Большое Вам спасибо за помощь, к сожалению в другом виде свою благодарность мне выразить пока нечем, но может и я пригожусь...

P.S.: Проблема пока по загрузке изоображений не решена.

класс....меня уже второй раз....
Ну хоть ни так обидно...потому что каждый раз с пользой, с чувством, мерой, расстановкой...

Если можно, ещё раз, пожалуйста, для меня и по-русски.