VB中调用存储过程的问题

这段代码显示的 rs.RecordCount为-1,其实我里面是有一条记录的,请问问题出在哪能里?

Dim cnn As New ADODB.Connection
Dim lcmd   As New ADODB.Command
Dim Param1  As New ADODB.Parameter
Dim rs As New ADODB.Recordset
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=AIS20070910122938;Data Source=WAPSERVER"
cnn.Open
lcmd.ActiveConnection = cnn
lcmd.CommandText = "manusalary"
lcmd.CommandType = adCmdStoredProc
Set Param1 = lcmd.CreateParameter("@date1", adDate, adParamInput)
Param1.Value = "2008-04-23"
lcmd.Parameters.Append Param1
Set rs = lcmd.Execute
Debug.Print rs.RecordCount
cnn.Close

有谁知道的帮个忙呀，我好急呀

Set Param1 = lcmd.CreateParameter("@date1", adDate, adParamInput)
Param1.Value = "2008-04-23"
lcmd.Parameters.Append Param1

我不是这么用的,传参数就这样:
lcmd.Parameter("@date1")="2008-04-23"
Oracle要用To_Date转化

我的是SQL,但是我换成你的格式还是不行,报3265的错,能将你的原代码给我参考下吗?谢谢

把你的存储过程发上来看看
可能是存储过程里定义的与你实际用的格式不一样吧?

但是ＲＳ（０）中有记录显示，就是rs.recordcount为－１

打上
set rs=nothing
Rs.CursorLocation = adUseClient