Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Dim rst As ADODB.Recordset
Dim rst1 As ADODB.Recordset
    Set rst = New ADODB.Recordset
    Set rst1 = New ADODB.Recordset
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "sp_procedure"
    cmd.CommandType = adCmdStoredProc
    Set prm = New ADODB.Parameter
    Set prm = cmd.CreateParameter("id_plu", adInteger, adParamInput,  10 , Me.ID)
    cmd.Parameters.Append prm
    Set rst = cmd.Execute
    rst1.Fields.Append "id", adInteger
    rst1.Fields.Append "id_object", adInteger
    rst1.Fields.Append "objdesc", adVarChar,  50 
    rst1.Fields.Append "RetailPrice", adDouble
    rst1.Fields.Append "qty", adInteger
    rst1.Open
    While Not rst.EOF
        rst1.AddNew Array("id", "id_object", "objdesc", "RetailPrice", "qty"), Array(rst("id"), rst("id_object"), rst("objdesc"), rst("RetailPrice"), rst("qty"))
        rst1.UpdateBatch adAffectCurrent
            rst.MoveNext
    Wend
    rst.Close
        
    Set Me.Внедренный23.Form.Recordset = rst1