请教Access中Webbrowser缩放网页时产生的问题

请教各位高手，我做了一个Access窗体，内嵌Webbrowser控件，已经加了Reference，能够显示网页内容，但是由于控件大小关系，需要缩放Webbrowser中的内容，以达到显示全部的网页内容，我从网上找了如下的代码：

    Me.WebBrowser1.Navigate "www.baidu.com"   ' 导向到百度

    Me.WebBrowser1.Object.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(1), vbNull   ‘ 这一句是缩放网页内容
 

但是运行后会出现：

    Run-time error '-2147221248 (80040100)':

    Method 'ExecWB' of object 'IWebBrowser2' failed

选了Debug之后，再点击运行，倒是能够实现缩小的功能。但是如果直接加 On Error resume next， 却不能实现效果。 我是Access2010的版本。

求高人指导啊~~~