Office Outlook同步很奇怪的BUG

最近一个项目中有一个与Office Outlook同步的模块，是我用VB6.0开发的ActiveX IE插件，现客户那出现错误，我逐步测试总结情况如下：
            1.客户环境XP sp2+Outlook2003，我做了一个CS测试程序执行同样代码，Outlook打开时执行出错的情况很少，但没有打开Outlook测试出错概率大于50%，我做了一个干净的系统XP sp2+Outlook2003,运行同样测试程序无论是否打开Outlook都没有错误。
            2.在客户处安装开发环境，单步执行，没有错误；设置断点跳跃执行，出错；
            3.反复设断点测试，找到出错位置在如下代码：

Dim objApp As Outlook.Application
2 Office Outlook同步很奇怪的BUG

Dim objNameSpace As Outlook.NameSpace
3 Office Outlook同步很奇怪的BUG

Dim objMAPIFolder As Outlook.MAPIFolder
4 Office Outlook同步很奇怪的BUG

Set objApp = New Outlook.Application
5 Office Outlook同步很奇怪的BUG

Set objNameSpace = objApp.GetNamespace(Type:="MAPI")
6 Office Outlook同步很奇怪的BUG

Set objMAPIFolder = _
7 Office Outlook同步很奇怪的BUG

objNameSpace.GetDefaultFolder(FolderType:=olFolderTasks)

出错位置在第6行，但有如下情况：
在第6行设置断点，运行到该断点处，单步执行出错；
在第4行设置断点，运行到该断点处，单步执行，第6行运行正常；
4.出错几次后，Outlook会崩溃，发送错误报告，提示重启；
大家谁做过OFFICE编程，帮忙判断一下错误可能出在哪，上网查找了好久也没有找到相似问题的解决方案。

同步源码

附：错误提示基本上是“操作失败”，错误来源是Outlook；用外部程序调用outlook，每次都弹出一个烦人的提示窗体，可能是提示窗体没有创建成功发生错误。