Здравствуйте все!

Подскажите пожалуйста что надо переделать в коде?
Проблема такая: сначало в таблице было 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 от главной таблицы и рисунок

и как при этом поменять код понятия не имею.
Помогите пожалуйста.

Спасибо огромное, работает.