Добавление новой записи в таблицу с полем типа image, - VB

Формулировка задачи:

Здравствуйте все!
Подскажите пожалуйста что надо переделать в коде?
Проблема такая: сначало в таблице было 2 поля, теперь 3 (ID от главной таблицы)
Раньше использовала этот код на вставку новой записи (одно из полей типа image, использую OLE-контейнер) Код:
Dim i As Integer
On Error GoTo errHandler
i = FreeFile
Open "c:\2.ole" For Binary As i
F_glav.OLE1.SaveToFile i
Close i
'сохранение в БД
Dim myStream As ADODB.Stream
Set myStream = New ADODB.Stream
myStream.Type = adTypeBinary
myStream.Open
myStream.LoadFromFile "c:\2.ole"
If rcd1.State = 1 Then rcd1.Close
rcd1.Open "select idim, skan from skan", cn, adOpenDynamic, adLockOptimistic
rcd1.AddNew
rcd1("skan") = myStream.Read
rcd1.Update
rcd1.Close
myStream.Close
Set myStream = Nothing
теперь мне надо заполнять 2 поля: ID от главной таблицы и рисунок
и как при этом поменять код понятия не имею.
Помогите пожалуйста.

Решение задачи: «Добавление новой записи в таблицу с полем типа image,»

textual
                            Листинг программы 
                        

                            <font color="blue">With</font> rcd1
    .<font color="blue">Open</font> <font color="teal">"select idim, skan, IdMainTable from skan"</font>, _
      cn, adOpenDynamic, adLockOptimistic
    .AddNew
    .Fields(<font color="teal">"skan"</font>) = myStream.Read
    .Fields(<font color="teal">"IdMainTable"</font>) = <font color="darkblue"><b>2</b></font> <font color="00AA00">' (ID от главной таблицы).</font>
    .Update
    .<font color="blue">Close</font>
<font color="blue">End</font> <font color="blue">With</font>
                        