title: Fill ListBox using SQL stored procedure
body: <p>I am working on <strong><em>VBA MS Access Application</em></strong> and there needs to populate <em>ListBox</em> using by executing stored procedure on ADO Environment. Below is my code... this code is executed when main form loads.</p>
  
  <p>Everything is ok with sql connectivity and on debugging using <code>Debug.Print</code>, I can confirm that data is being fetched successfully. But I am getting error on last line.. please need help. Below is my code for filling Listbox....    </p>
  
  <pre><code>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
  </code></pre>