Как вставить картинку(OLE объект) в таблицу MS Access c помощью библиотеки ADO и объекта Command ???

Я пишу например так:

Dim com As New ADODB.Command

With com
.ActiveConnection = CurrentProject.Connection
.CommandText = "insert into test(test) values(:param)"
.CommandType = adCmdText
.Parameters.Refresh

.Parameters(0).Type = adLongVarBinary
.Parameters(0).Direction = adParamInput
.Parameters(0).Value = OLE1.Value

.Execute
End With

------------ Ошибка Run Time 3421 !!!!!

Таблица test (поле test -- Поле OLE)
Объект Присоед. рамка с именем OLE1 -- картинка внедрена(emb)