Public Function SaveFileToDB(ByVal FileName As String, RS As Object, FieldName As String) As Boolean
Dim iFileNum As Integer
Dim lFileLength As Long
Dim abBytes() As Byte
Dim iCtr As Integer
On Error GoTo ErrorHandler
If Dir(FileName) = "" Then Exit Function
If Not TypeOf RS Is ADODB.Recordset Then Exit Function
'считать файл в массив
iFileNum = FreeFile
Open FileName For Binary Access Read As #iFileNum
lFileLength = LOF(iFileNum)
ReDim abBytes(lFileLength)
Get #iFileNum, , abBytes()
'поместить содержимое массива в БД
RS.Fields(FieldName).AppendChunk abBytes()
Close #iFileNum
SaveFileToDB = True
ErrorHandler:
End Function

Dim sConn As String
Dim oConn As New ADODB.Connection
Dim oRs As New ADODB.Recordset
sConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.62.133;" & _
          "DATABASE=doc; USER=root;PASSWORD=akista;OPTION=3"
oConn.CursorLocation = adUseClient
oConn.ConnectionString = sConn
oConn.Open
oRs.Open "SELECT * FROM word_doc", oConn, adOpenKeyset, adLockOptimistic
oRs.AddNew
SaveFileToDB "C:\MyDoc.Doc", oRs, "MyFieldName"
oRs.Update
oRs.Close
End Sub