VBA Combobox没有填充记录集

Question

我有一个SQL查询拉回两列并填充ActiveX组合框。 SQL中的查询返回单行数据，但是当我在Excel中选择组合框时，列表为空。

这是填充组合框的代码的一部分：

With rst
    Set .ActiveConnection = Nothing 'Disconnect the recordset.
    k = .Fields.Count
          'Populate the array with the whole recordset.
    vaData = .GetRows
End With

CB_Layer.List = Application.Transpose(vaData)

为了测试这一点，我在第一部分添加了一块手表，可以看到我有一行值。一旦我越过vaData = .GetRows，监视值就会变为：

: Value : <Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.>

有人可以告知为什么会这样吗？

提前致谢