VBA UserForm从SQL读取列名填充复选框时出现Run-time error 91如何解决？

诱发原因 #

Run-time error 91的含义是对象变量或With块变量未设置，对应你的代码具体触发原因如下：

• 你在模块顶部声明的ADODB.Recordset对象rst，在UserForm_Initialize执行时还处于未实例化的Nothing空状态。即使你之前在其他逻辑里验证过数据库连接、提取过数据，只要没有把打开后的有效结果集赋值给这个模块级的rst变量，运行到调用rst.Fields的代码行时就会触发该错误。
• 代码存在隐藏bug：Fields集合的索引范围是0 到 rst.Fields.Count -1，你现在写的循环边界0 To rst.Fields.Count后续会触发索引越界错误，只是当前91错误优先级更高，所以没有暴露。
• 额外排查点：如果窗体上的控件名称和代码里的cboParameter不匹配（你描述里提到是复选框，代码里的cbo前缀是组合框的常用命名规则，注意核对控件类型和名称），也会触发91错误。

解决思路 #

• 方案1：在用户窗体初始化逻辑里直接完成记录集的初始化，示例代码如下：

Option Explicit

Dim rst As ADODB.Recordset
Dim conn As ADODB.Connection

Private Sub UserForm_Initialize()
    Dim i As Integer
    ' 初始化连接、打开记录集，替换为你自己验证过的连接字符串和查询语句
    Set conn = New ADODB.Connection
    conn.Open "你的数据库连接字符串"
    Set rst = New ADODB.Recordset
    ' 取TOP 1即可获取表结构，不需要返回全量数据，提升运行效率
    rst.Open "SELECT TOP 1 * FROM 你要读取列名的表名", conn, adOpenForwardOnly, adLockReadOnly
    
    ' 修正循环边界
    For i = 0 To rst.Fields.Count - 1
        Me.cboParameter.AddItem rst.Fields(i).Name
    Next i
    
    ' 用完释放资源
    rst.Close
    conn.Close
    Set rst = Nothing
    Set conn = Nothing
End Sub

• 方案2：如果你的记录集是在窗体外部其他逻辑中打开的，可以在显示窗体前先给rst变量赋值，示例调用逻辑：

' 外部打开窗体的代码
Dim targetForm As New 你的窗体名称
Set targetForm.rst = 你已经提前打开好的有效记录集
targetForm.Show

• 快速排查技巧：在UserForm_Initialize第一行加断点，逐行运行即可定位具体报错的代码行，也可以在开头加Debug.Print rst Is Nothing快速验证是否是记录集空对象导致的问题。

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