No records returned from SQL stored proc

Transitioning an app from VB6/JET to VB6/SQL2k. The previous JET code
returns 3 records but the new code returns 0 from the same table. The new
code:

Public Db As New ADODB.Connection
Public strCN As String

Set Db = New Connection

strCN = "Provider=sqloledb;" & _
"Data Source=Earl-XPPRO;" & _
"Initial Catalog=ImprovementPricing2005;" & _
"Integrated Security=SSPI"

Db.Open strCN

cmd.ActiveConnection = Db
cmd.CommandText = "sel_ActiveProspects"
cmd.CommandType = adCmdStoredProc

Set rsC = cmd.Execute

'should have 3 records here, getting -1 for recordcount
'but the connection state shows open and the recordset state shows open

The stored procedure executes in QA and returns the 3 records (dropped the
WHERE for now):

CREATE PROCEDURE sel_ActiveProspects
AS
SELECT Phone,Salutation,FirstName as [First Name],LastName as [Last Name],
Address,City,State,Zip,CustomerID
FROM JobProspects

Hmmmm ... well, I *am* getting a recordcount of 3, but with the new
provider, the recordset.recordcount is returning the -1, apparently
rejecting the cursor type set even if I open it like so:

rsC.Open cmd, , adOpenStatic, adLockOptimistic

The net effect of this is to prevent me from binding the recordset to an
Ultragrid. I'm getting the message, "Provider does not support minimum
binding requirements".

"Earl" wrote in message

> Transitioning an app from VB6/JET to VB6/SQL2k. The previous JET code
> returns 3 records but the new code returns 0 from the same table. The new
> code:
>
> Public Db As New ADODB.Connection
> Public strCN As String
>
> Set Db = New Connection
>
> strCN = "Provider=sqloledb;" & _
> "Data Source=Earl-XPPRO;" & _
> "Initial Catalog=ImprovementPricing2005;" & _
> "Integrated Security=SSPI"
>
> Db.Open strCN
>
> cmd.ActiveConnection = Db
> cmd.CommandText = "sel_ActiveProspects"
> cmd.CommandType = adCmdStoredProc
>
> Set rsC = cmd.Execute
>
> 'should have 3 records here, getting -1 for recordcount
> 'but the connection state shows open and the recordset state shows open
>
> The stored procedure executes in QA and returns the 3 records (dropped the
> WHERE for now):
>
> CREATE PROCEDURE sel_ActiveProspects
> AS
> SELECT Phone,Salutation,FirstName as [First Name],LastName as [Last Name],
> Address,City,State,Zip,CustomerID
> FROM JobProspects
>
>
>
>
>