Здравствуйте!
У меня не выполняется ХП в форме:
Access пишет ошибку : Too many arguments were supplied for procedure proba.

CREATE PROCEDURE [proba] @InputDate smalldatetime = null,
@Value real = null
as
SET NOCOUNT ON
DECLARE @Status int
SELECT @Status = 4
RETURN @Status
GO
По событию нажатия кнопки:
Call Record_Value(Me.fld_date.Value, Me.fld_value_manual.Value)

Public Sub Record_Value(ByVal InputDate As String, ByVal Value As Double)
On Error GoTo Form_Open_Err
Dim cmd As ADODB.Command
Dim conn As ADODB.Connection
Dim Prm As ADODB.Parameter
Dim Prm1 As ADODB.Parameter
Dim Prm2 As ADODB.Parameter
Set conn = CurrentProject.Connection
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = conn
.CommandText = "proba"
.CommandType = adCmdStoredProc
End With
Set Prm1 = cmd.CreateParameter(InputDate, adDate, adParamInput, , InputDate)
cmd.Parameters.Append Prm1

Set Prm2 = cmd.CreateParameter(Value, adDouble, adParamInput, , Value)
cmd.Parameters.Append Prm2

Set Prm = cmd.CreateParameter("Status", adInteger, adParamReturnValue)
cmd.Parameters.Append Prm

cmd.Execute
Status = cmd.Parameters("Status") '
MsgBox str(Status)
conn.Close
Set conn = Nothing
Set cmd = Nothing

Form_Open_Exit:
Exit Sub
Form_Open_Err:
MsgBox "Error # " & str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
Resume Form_Open_Exit
End Sub

Заранее благодарен за помощь!