alter proc Result
@a int,@b int 
as 
begin 
select sum(@a +@b), suser_sname(),getdate()
select @a * @b, suser_sname(),getdate()
end

Private Sub DataGrid1_Click()
On Error GoTo err_not_connection
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    Set cm = New ADODB.Command
    Set prm = New ADODB.Parameter

 With cnn
    .Provider = "SQLOLEDB"
    .Properties("initial catalog") = "study"
    .Properties("Integrated Security") = "SSPI"
    .CursorLocation = adUseClient
    .Open
End With

On Error GoTo err_not_command
    With cm
      .CommandText = "Result"
      .CommandType = adCmdStoredProc
      .ActiveConnection = cnn
      .CommandTimeout =  0 
      .Parameters.Append .CreateParameter("@a", adInteger, adParamInput,  3 ,  1 )
      .Parameters.Append .CreateParameter("@b", adInteger, adParamInput,  3 ,  2 )
    End With
    Set rst = cm.Execute
    Set DataGrid1.DataSource = rst
    DataGrid1.Refresh
 'rst.Close
 
    Exit Sub
err_not_connection:
    MsgBox "нет соединения  " & cnn.State
err_not_command:
    MsgBox "ошибка команды  " & Err.Description & " " & Err.Number
End Sub