вариаент когда
даешь ей параметры
и когда получаешь
от нее.

Dim cmd As ADODB.Command
Dim dateD As Date
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "[ДобавлениеКурсаВалют]"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("DateIn", adDate, adParamInput, , [Дата])
cmd.Parameters.Append cmd.CreateParameter("USD", adCurrency, adParamInput, , [Курс $])
cmd.Parameters.Append cmd.CreateParameter("EUR", adCurrency, adParamInput, , [Курс €])
cmd.Parameters.Append cmd.CreateParameter("DateOut", adDate, adParamOutput)
cmd.Execute
If cmd.Parameters("DateOut") = [Дата] Then....