Set cmd = New ADODB.Command
  Set cmd.ActiveConnection = CurrentProject.Connection
  
  cmd.CommandType = adCmdStoredProc
  cmd.CommandText =  "Report_All_Money_For_Today" 

  Set prm = cmd.CreateParameter( "ret" , adInteger, adParamReturnValue)
  cmd.Parameters.Append prm
  Set prm = cmd.CreateParameter( "sumNalS" , adDouble, adParamOutput)
  cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter( "sumNalG" , adDouble, adParamOutput)
  cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter( "sumBN" , adDouble, adParamOutput)
  cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter( "sumNeedNG" , adDouble, adParamOutput)
  cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter( "sumNeedNS" , adDouble, adParamOutput)
  cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter( "summNeedBN" , adDouble, adParamOutput)
  cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter( "summBNO" , adDouble, adParamOutput)
  cmd.Parameters.Append prm
  cmd.Execute
  ret = cmd.Parameters( "ret" )
  If ret =  0  Then
   sumNG = cmd.Parameters( "sumNalG" )
   sumNS = cmd.Parameters( "sumNalS" )
   sumB = cmd.Parameters( "sumBN" )
   sumNNG = cmd.Parameters( "sumNeedNG" )
   sumNNS = cmd.Parameters( "sumNeedNS" )
   sumNB = cmd.Parameters( "summNeedBN" )
   sumBNO = cmd.Parameters( "summBNO" )