关于OLE的问题（有源码）

[bruce tao88]

我想在SQL数据库中OLE字段以二进制存入WORD文档，在OLE容器控件中引入Word文档，用以下代码为什么老是出错，请各位大大赐教。或有更好的途径也行最好有源码。
100分不够可再加。
我的Email: [e-mail]

Private Sub command1_Click()
Dim FileNum As Integer
'取文件号。
FileNum = FreeFile
'打开要保存的文件。
Open App.Path & "TEST.txt" For Binary As #FileNum
'保存文件。
oleObj1.SaveToFile FileNum
'关闭文件。
Close #FileNum
End Sub


Private Sub command2_Click()
Dim FileNum As Integer
'取文件号。
FileNum = FreeFile
'打开文件。
Open App.Path & "\TEST.txt" For Binary As #FileNum
'读文件。
oleObj1.ReadFromFile FileNum
'关闭二进制文件。
Close #FileNum

End Sub