使用SQL存储过程填充ListBox

Question

我正在处理 VBA MS Access应用程序 ，需要通过在ADO Environment上执行存储过程来填充 ListBox 。下面是我的代码......当主表单加载时执行此代码。

使用Debug.Print进行调试时，一切正常，我可以确认数据是否已成功获取。但我在最后一行收到错误..请帮助。下面是我填写Listbox的代码......

Dim rs As ADODB.Recordset

Set AdoCn = New ADODB.Connection

Set AdoCmd = New ADODB.Command

AdoCn.Open AdoConnectionString

AdoCmd.ActiveConnection = AdoConnectionString

Set rs = New ADODB.Recordset

AdoCmd.CommandType = adCmdStoredProc
    AdoCmd.CommandText = "TestListReview"
     Set rs = AdoCmd.Execute

     rs.CursorLocation = adUseClient
    rs.Open cmd, , adOpenForwardOnly, adLockOptimistic, dbSeeChanges
   Set Me.lstReview.RowSourceType = "Table/Query"

    Set Me.mylstbox.Recordset = rs

Set rs = Nothing
Set cn = Nothing

Answer 1

您尚未创建名为cn的连接。您创建的连接称为AdoCN。您正在尝试关闭不存在的对象。将最后一行更改为设置AdoCn = Horaciux建议的任何内容。