把Word文档以二进制写入Access数据库

把Word文档以二进制写入Access数据库，然后读出来：数据库中的字段类型为OLE类型

Dim cn as New ADODB.Connection,rs As New ADODB.Recordset
Private Sub Command1_Click()
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\DB.mdb;Persist Security Info=False"  
    set rs=cn.execute("Select * From tableName")
    call WriteFile
    call ReadFile
End Sub

Private Sub WriteFile()
    Dim StmPic As New ADODB.Stream,filePath as string
    StmPic.Type = adTypeBinary    '指定流是二进制类型
    filePath="c:\test.doc"
    StmPic.Open                     '将数据获取到Stream对象中
    StmPic.LoadFromFile (filePath) '将文件加载到打开的StmPic中
    rs.AddNew
    rs.Fields(0).Value = StmPic.Read   '从StmPic对象中读取数据
    rs.Update
    StmPic.Close
End Sub

Private Sub ReadFile()
    Dim StmPic As New ADODB.Stream，strTemp
    strTemp = "c:\temp.doc"    '临时文件,用来保存读出的文件
    With StmPic
        .Type = adTypeBinary
        .Open
        .Write rs.Fields(0)       '写入数据库中的数据至Stream中
        .SaveToFile StrPicTemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中
        .Close
    End With
End Sub