ник: Едрёныч
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "sp_orderDetails"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@OrderID", adInteger, adParamInput, , Me.ПолеСоСписком0)
Set Me.ПолеСоСписком2.Recordset = cmd.Execute ' так заработало
End Sub
фурычит! может кому и сгодится.