VB6调试Access COM加载项时遇Run-time error 13:类型不匹配求助

我之前踩过这个一模一样的坑！编译好的加载项跑起来完全没问题，但一进VB6调试模式（Ctrl-F5），Access里的早期绑定赋值就炸类型不匹配，简直头大。咱们来捋几个最可能的原因和解决办法：

1. 调试时类型库注册冲突 #

VB6调试时会临时注册一个带调试标记的临时类型库，而Access大概率还在引用你之前编译好的正式版本DLL的类型库——两个版本的类型信息不兼容，自然会报类型不匹配。

解决步骤：

• 先关闭Access，在VB6里启动调试（Ctrl-F5）
• 打开Access，进入VBA编辑器，移除原来引用的你的加载项类型库
• 重新添加引用，找到名字带「[debug]」后缀的那个临时类型库（比如你的工程名是MyAddIn，调试时会显示「MyAddIn - [debug]」）
• 保存Access的引用设置，再重试赋值操作

如果还是有问题，调试前先注销正式版本的加载项：

regsvr32 /u "C:\Your\Path\To\MyAddIn.dll"

2. 调试模式下的对象代理包装 #

编译后你的加载项Object属性返回的是纯类实例，但VB6调试时会给对象套一层调试代理（用来支持断点、变量监视），这个代理对象和你早期绑定的类型不兼容。

试试这个变通写法：

' 先赋值给通用Object类型，再转成你的加载项类型
Dim tempObj As Object
Dim myAddIn As MyAddIn.IMainClass ' 替换成你公开的接口/类名
Set tempObj = Application.COMAddIns("MyAddIn").Object
Set myAddIn = tempObj ' 若报错，尝试用Set myAddIn = CType(tempObj, MyAddIn.IMainClass)

同时检查VB6加载项的OnConnection方法，确保你返回的是直接的类实例，不要返回嵌套的代理或者子类对象——调试时这种结构会被VB6特殊处理，导致类型识别失败。

3. 兼容性设置不对 #

如果你的VB6工程没有设置二进制兼容性，调试时生成的临时类型库接口和正式版本不一致，Access的早期绑定就认不出来。

解决：

• 在VB6里打开工程属性（右键工程 → Properties）
• 切换到「Component」标签页
• 把「Version Compatibility」设置为「Binary Compatibility」，并指向你编译好的正式DLL文件
• 重新启动调试，这样临时类型库的接口就和正式版本完全一致了

4. 权限或进程隔离问题 #

有时候Access和VB6 IDE运行在不同权限上下文，会导致类型库加载失败。试试：

• 右键VB6 IDE和Access，选择「以管理员身份运行」
• 检查你的加载项类的Instancing属性，必须设置为MultiUse或GlobalMultiUse（如果是Private，调试时根本无法外部访问）

最后给个小技巧：调试时一定要先启动VB6调试，再打开Access——提前打开Access会导致它加载旧的类型库，就算你后面改了引用也没用。

内容的提问来源于stack exchange，提问作者kismert