SQL Stored Procedure DOES NOT Execute Using ADODB In Excel VBA

Hi to All,

I have the codes below in excel VBA that always returns a "-1" value of the rs.RecordCount. The sql connection is open, BUT IS NOT ABLE TO EXECUTE THE STORED PROCEDURE. Anyone please I need help ;(

Database: SQL Server 2005
Programming language: VBA (Excel 2003)


Dim cn as new ADODB.Connection
Dim cmd as new ADODB.Command
Dim rs as new ADODB.Recordset
Dim connstr as string

connstr = "Provider=SQLOLEDB;" _
& "Data Source=myDataSource;" _
& "Uid=sa;Pwd=mysource;"_
& "Initial Catalog=Emp;"

With cn

.ConnectionString = str
.CommandTimeout = 0
.Open
End With


cmd.CommandText = "sp_LoadEmp"
cmd.CommandType = adCmdStoredProc
cmd.ActiveConnection = cn

Set rs = cmd.Execute

If rs.RecordCount > 0 then

< my codes here >
End If



My Stored Procedure:

SELECT * FROM Emp WHERE EmpAge > 30