Сохранение документа word в базе данных - VB

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

Доброго всем... времени суток :)
Нашла код для добавления вордовского файла в базу данных (Mysql) и подогнала под свою. :

SaveFileToDB( FileName  , RS  , FieldName  )  
 iFileNum  
 lFileLength  
 abBytes()  
 iCtr  
   ErrorHandler
 Dir(FileName) =    
  TypeOf RS  ADODB.Recordset   

iFileNum = FreeFile
 FileName  Binary Access Read  #iFileNum
lFileLength = LOF(iFileNum)
 abBytes(lFileLength)
 #iFileNum, , abBytes()

RS.Fields(FieldName).AppendChunk abBytes()
 #iFileNum
SaveFileToDB = True
ErrorHandler:
 

sConn  
 oConn   ADODB.Connection
 oRs   ADODB.Recordset
sConn =  & _
          
oConn.CursorLocation = adUseClient
oConn.ConnectionString = sConn
oConn.
oRs. , oConn, adOpenKeyset, adLockOptimistic
oRs.AddNew
SaveFileToDB , oRs, 
oRs.Update
oRs.
 

Ошибка - не может вставить пустую строку. необходим хотябы один столбец значений.
Вроде как я параметры передаю... просто я немного не понимаю как работает эта функция... как она принимает значения - ясно... а как передает назад в программу, и в какой столбец пытается засунуть - для меня загадка...

Решение задачи: «Сохранение документа word в базе данных»

textual
                            Листинг программы 
                        
                            <font color="blue">Public</font> <font color="blue">Function</font> SaveFileToDB(<font color="blue">ByVal</font> FileName <font color="blue">As</font> <font color="blue">String</font>, RS <font color="blue">As</font> <font color="blue">Object</font>, FieldName <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> <font color="blue">Boolean</font>
SaveFileToDB                     <font color="teal">"C:\MyDoc.Doc"</font>,           oRs,          <font color="teal">"MyFieldName"</font>