MS-Access 2013 Подключение результата хранимой процедуры к набору записей combobox

Question

AS в теме, мне нужно связать результаты хранимой процедуры как набор записей. Используя некоторые примеры, которые я нашел, я придумал:

Dim cn As New ADODB.Connection 
cn = GetConnection() 
Dim cmd As New ADODB.Command 

Dim rs As ADODB.Recordset 
Set rs = New ADODB.Recordset 
With cmd 
.ActiveConnection = GetConnection() 
.CommandText = "dbo.K_Kod_Agenta_P" 
.CommandType = adCmdStoredProc 

.Parameters.Refresh 
End With 
With rs 
.ActiveConnection = GetConnection() 
.CursorType = adOpenForwardOnly 
.CursorLocation = adUseServer 

End With 

Set rs = cmd.Execute 


Set Me.kod_nadagenta.Recordset = rs 

rs.Close 
cn.Close 

Но когда она попадает

Set Me.kod_nadagenta.Recordset = rs 

он бросает

«Ошибка выполнения„7965“: Объект, который вы ввели, не действительное свойство Recordset. "

Answer 1

Просто создать сквозной запрос со следующим SQL:

dbo.K_Kod_Agenta_P 

Теперь просто базировать поле со списком, что сквозной запроса. Вам не нужен весь этот код.