Dim cmd As ADODB.Command
    Me!Total =  ""
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = " dbo.Proc_RemainsSumOnDateBySelfCoast "
    cmd.CommandType = adCmdStoredProc
    cmd.Parameters.Append cmd.CreateParameter(" @Date ", adDate, adParamInput, , Me!Date)
    cmd.Parameters.Append cmd.CreateParameter(" @Warehouse_id ", adInteger, adParamInput, , 3 )
    cmd.Parameters.Append cmd.CreateParameter("@Category_id ", adInteger, adParamInput, , 1 )
    cmd.Parameters.Append cmd.CreateParameter("@Total", adCurrency, adParamOutput)
    cmd.Prepared = False
    cmd.Execute , , adExecuteNoRecords
    Me!Total = cmd.Parameters( 3 )