求助！存储过程输入参数的问题！

set  rsconn=server.CreateObject("adodb.connection")  
         rsconn.open  strConn  
         set  rscmd=server.CreateObject("adodb.command")  
         set  rscmd.activeconnection=rsconn  
             rscmd.CommandText="loan_msg_query"  
         rscmd.CommandType=4  
           
     
       Set  rsFirstParam=rscmd.CreateParameter("acc_no",adVarChar,1,20)    
           rscmd.Parameters.Append  rsFirstParam  
       Set  rsSecondParam=rscmd.CreateParameter("date1",adDbdate,1)    
           rscmd.Parameters.Append  rsSecondParam  
       Set  rsThirdParam=rscmd.CreateParameter("date2",adDbdate,1)    
         rscmd.Parameters.Append  rsThirdParam  
             
         rscmd("acc_no")=acc_no  
         rscmd("date1")=date1  
         rscmd("date2")=date2  
             
           set  rsrecordset=rscmd.execute  
 
错误类型：  
ADODB.Parameters  (0x800A0E7C)在”rscmd.Parameters.Append  rsFirstParam“这行，好象说我定义parameter对象错了，怎么回事？  
 
---------------------------------------------------------------  
 
800A0E7C  
应用程序错误地定义了  Parameter  对象。    
 
给你个例子看看  
With  cmdEmployee  
       .ActiveConnection  =  strConn  
       .CommandText  =  "usp_AddEmployee"  
       .CommandType  =  adCmdStoredProc  
 
       ''  create  the  parameters  
       .Parameters.Append  .CreateParameter  ("RETURN_value",  adInteger,  adParamReturnvalue)  
       .Parameters.Append  .CreateParameter  ("@Emp_id",  adChar,  adParamInput,  9)  
       .Parameters.Append  .CreateParameter  ("@fname",  adVarWChar,  adParamInput,  20)  
       .Parameters.Append  .CreateParameter  ("@minit",  adChar,  adParamInput,  1)  
       .Parameters.Append  .CreateParameter  ("@lname",  adVarWChar,  adParamInput,  30)  
       .Parameters.Append  .CreateParameter  ("@job_id",  adSmallInt,  adParamInput)  
       .Parameters.Append  .CreateParameter  ("@job_lvl",  adUnsignedTinyInt,  adParamInput)  
       .Parameters.Append  .CreateParameter  ("@pub_id",  adChar,  adParamInput,  4)  
       .Parameters.Append  .CreateParameter  ("@hire_date",  adDBTimeStamp,  adParamInput,  8)  
 
       ''  set  the  parameter  values  
       .Parameters("@Emp_id")  =  Request.Form("txtEmpID")  
       .Parameters("@fname")  =  Request.Form("txtFirstName")  
       .Parameters("@minit")  =  Request.Form("txtInitial")  
       .Parameters("@lname")  =  Request.Form("txtLastName")  
       .Parameters("@job_id")  =  Request.Form("lstJobs")  
       .Parameters("@job_lvl")  =  Request.Form("txtJobLevel")  
       .Parameters("@pub_id")  =  Request.Form("lstPublisher")  
       .Parameters("@hire_date")  =  Request.Form("txtHireDate")  
 
       .Execute  lRecs,  ,  adExecuteNoRecords  
 
       lAdded  =  .Parameters("RETURN_value")  
   End  With