执行到MsgBox rs(0) & rs(1) & rs(2) & rs(3)发现有满足条件的记录返回,但是执行到这句MsgBox i发现i值为-1,为什么有记录返回但是rs.recordcount的却为-1

CNN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=AIS20070910122938;Data Source=WAPSERVER"
CNN.Open
DT10 = Format(Trim(DT1.Value), "yyyy-mm-dd")
DT20 = Format(Trim(DT2.Value), "yyyy-mm-dd")
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = CNN
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "[manusalary] "
Set Par = Cmd.CreateParameter("BeginDate", adDBDate, adParamInput, , DT10)
Cmd.Parameters.Append Par
Set Par = Cmd.CreateParameter("EndDate", adDBDate, adParamInput, , DT20)
Cmd.Parameters.Append Par
Set rs = Cmd.Execute()
MsgBox rs(0) & rs(1) & rs(2) & rs(3)
i = rs.RecordCount

MsgBox i