在vb中执行存储过程请教，在线急等

Question

我在vb中调用存储过程的时候出错
调用函数为：
Public Function ReCalcData(ByVal STCD As Long, ByVal dteStartTime As Date, ByVal dteEndTime As Date)
    Dim localCmd As New ADODB.Command
    
    With localCmd
        .CommandText = "p_ReCreate"
        .CommandType = adCmdStoredProc
        
        .Parameters.Append .CreateParameter("STCD", adInteger, adParamInput, , STCD)
        .Parameters.Append .CreateParameter("begin", adDate, adParamInput, , dteStartTime)
        .Parameters.Append .CreateParameter("end", adDate, adParamInput, , dteEndTime)
        
        Set .ActiveConnection = cn
        .Execute
    End With
    
    Set localCmd = Nothing    
End Functioncn为有效连接，当程序执行到.Execute，系统提示：“没有执行可选择性”
百思不得其解，请各位指点，在线等候附：存储过程为：(为有效存储过程，在查询器里试验无误)
create  procedure p_ReCreate (
@STCD integer ,
@begin datetime ,
@end datetime)
as

Answer 1

你可以试着将create与append分开两个语句写，例如：
Dim prmTemp As ADODB.Parameter
With localCmd
     Set prmTemp =.CreateParameter("STCD", adInteger, adParamInput,XXX)
     prmTemp.append STCD
     ......
End With
需要注意的是，要指定参数的长度，即XXX的值

Answer 2

问题已经解决，原来是addate数据类型的问题，日期用adchar传入，长度20，就ok了
谢谢大家