Create proc dbo.Mysp
@param1 int, @param2 int
as
set Nocount ON
SELECT TblSaveAct.DateAct, TblSaveAct.CurUser, TblKeysWhy.Discript, TblSaveAct.OldVaule, TblSaveAct.IdDef, TblSaveAct.WhyKey, TblSaveAct.Код, TblSaveAct.КодОтд FROM TblSaveAct RIGHT JOIN TblKeysWhy ON TblSaveAct.WhyKey=TblKeysWhy.WhyKey WHERE (((TblSaveAct.Код)=@Param1) And ((TblSaveAct.КодОтд)=@param2)) ORDER BY TblSaveAct.DateAct;

        Dim q As New ADODB.Recordset
        Dim cmd As New ADODB.Command
        Dim prm As New ADODB.Parameter
        cmd.ActiveConnection = "Твоя строка подключения, например так
"PROVIDER=SQLOLEDB. 1 ;PASSWORD=;" & _
         "PERSIST SECURITY INFO=False;USER ID=mybase_user;" & _
         "INITIAL CATALOG=cash_rec;DATA SOURCE=server14"
"        
        cmd.CommandText = "How_many_payment_by_contract_now_fact_opl"
        cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("id_full", adInteger, adParamInput, , Forms!VVodzayav.Contract_for_pay)
cmd.Parameters.Append prm
Set q = cmd.Execute()