Public MyCommand As New ADODB.Command
Public cn As New ADODB.ConnectionPrivate Sub 统计_Click()
MyCommand.CommandText = "SP_ContractYearTemTable"
MyCommand.CommandType = adCmdStoredProc
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=77646;User ID=sa;Server=B5-NWGTJVF3TY;Database=DFGR"
cn.Open
YearData = "2005"
MyCommand.ActiveConnection = cn
MyCommand.Parameters.Append MyCommand.CreateParameter("@MyYearTime  ", adVarChar, adParamInput, 20, YearData)
Dim rs As New ADODB.Recordset
'//rs = MyCommand.Execute
set rs = MyCommand.Execute
Text1.Text = rs.Fields(1) 结果为6
Text1.Text = rs.RecordCount 怎么为-1