Excel VBA编译错误：方法未找到，ComboBox存在但宏突发失效

针对你遇到的问题，从代码和场景出发，重点排查以下几个方向：

1. 确认ComboBox控件类型 #

你已确认Sheet1上存在ComboBox1，但要注意控件类型差异：

• 如果是表单控件（Forms ComboBox），它没有Clear、AddItem这些方法，调用时会直接触发「method not found」错误。
• 解决方式：右键控件查看类型，若为表单控件，要么替换成ActiveX控件，要么改用表单控件的操作逻辑（比如通过Sheet1.DropDowns("ComboBox1")访问，用ListFillRange替代手动添加项）。

2. 检查ADODB对象的晚期绑定兼容性 #

你用CreateObject("ADODB.Recordset")做晚期绑定，需确认：

• connectDatabase过程返回的DBCONT是有效的ADODB.Connection对象，若DBCONT类型错误，会导致后续Recordset操作异常。
• 把rs1.movenext改成标准写法rs1.MoveNext（虽VBA不区分大小写，但晚期绑定下偶尔会因拼写规范问题触发识别错误）。

3. 排查工程引用的意外变更 #

如果之前工程引用过Microsoft ActiveX Data Objects x.x Library（早期绑定），后来引用被取消，而connectDatabase仍使用早期绑定的ADODB对象，也可能引发方法找不到的错误。

• 解决方式：打开VBA编辑器→工具→引用，确认是否勾选了合适版本的ADODB库；或者统一改用晚期绑定（所有ADODB相关对象都用CreateObject创建）。

补充优化建议 #

在模块顶部添加Option Explicit，强制变量声明（比如你代码里的i未声明，虽不是当前错误原因，但能避免后续隐式错误）。

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