hello all,
I solved this by using another append parameter statement to add a value
(sParm2Name) to the ADOcmd.Parameters object using the following code:

'Set Parameters
sParmName = "@ReportDate"
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adVarChar, adParamInput,
8, ReportDate)
ADOCmd.Parameters.Append ADOPrm

sParm2Name = "@action"
Set ADOPrm = ADOCmd.CreateParameter("sParm2Name", adInteger,
adParamInput, 4, resultSetNo)
ADOCmd.Parameters.Append ADOPrm

'Execute Query
Set ADORs = ADOCmd.Execute

Amit