WebBrowser1.Navigate，automation 错误

[pochetom]

Private Sub Form_Load()
WebBrowser1.Silent = True
WebBrowser1.Navigate "http://221.2.154.4:8080/drpweb"

End Sub

Private Sub WebBrowser1_DownloadComplete()
Select Case Trim(WebBrowser1.LocationURL)
'//登陆
Case
Case "。。。。。。。。。/Main.aspx"
WebBrowser1.Navigate "about:blank" '仓库明细界面
nd Select
End Sub


调试时无问题。
编译成exe后， WebBrowser1.Navigate "about:blank" 错误
出现 -运行时错误2147024726(800700aa) automation 错误,请指明原因，谢谢

[SYSSZ]

nd Select 错了吧