как сделать быстрый ввод со сканера Кодаком Image-ем в базу
сканированных документов
так долго и как то кривовато:
If IsNull(sert) Then
sert.Class = "Word.Document" ' Задает имя класса.
sert.OLETypeAllowed = acOLEEmbedded ' Задает тип объекта.
'sert.SourceDoc = "" ' Задает файл-источник.
'sert.SourceItem = "" ' Задает связываемый фрагмент.
sert.Action = acOLEInsertObjDlg ' Создает связанный объект.
sert.SizeMode = acOLESizeZoom ' Задает изменяемые размеры элемента управления
Else
MsgBox ("уже есть")
End If

Хоть намекните!