如何 禁用或禁止显示OLE 的菜单栏

[Bugs1984]

我在 OLE控件里面插入一个Word 文档，当程序运行时在 OLE控件 里面显示文档内容。但是这时VB就会自动显示 Word的菜单栏。

请问如何 不让菜单显示？或者禁用OLE控件的菜单？？

[online]

OLE1.SourceDoc = "c:\\com.doc"
OLE1.Action = 1 'use the old action method
OLE1.SizeMode = vbOLESizeAuttoSize '调节对象大小使其正好充满OLE容器控件

试试，我的怎么没有显示

[dongge2000]

结贴吧！

[jiang8360]

up

[jiang8360]

等一下，我也来一下

[libraleen]

to online:
以前看过你的一个帖子，其中关于读取数据的内容：
'从数据库中读取数据,保存成文件
Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConc As String

'数据库连接字符串
iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=\\xz\c$\Inetpub\zj\zj\zj.mdb"

'打开表
Set iRe = New ADODB.Recordset
iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly
iRe.Filter = "id=64"

'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("img")
.SaveToFile "c:\test.doc" ！！！！！！！！！！在这里提示写入文件失败
End With

'关闭对象
iRe.Close
iStm.Close
End Sub
能解决一下吗？

[libraleen]

另外，adSaveCreateOverWrite和adSaveCreateNotExist 是什么意思，DSDN上怎么查不到？

[libraleen]

sorry
是MSDN