VB Forum / Database Access / March 2008

Hopefully someone can help me.  I'm still new to VB development and have been
given a project to support that was developed a few years ago.  We recently
moved the application to a new server and now one the reports that is
produced has more records on it that it should.

The VB code executes a stored procedure to select inventory addition
records.  The problems is that when we run the stored procedure via the VB
code it is returning more records than expected and each time it returns a
different number (290 records, then next 295 recs, etc).  When we run the
stored procedure or just run a similar query through Query Analyzer it always
returns the expected 282 records.

Can someone point me in the right direction on where to look for the problem.

The application is a VB6 app selecting data off a SQL Server 2000 database.  
Below is a snippet of the VB code along with the select statement from the
stored procedure.

Stored Procedure (CreateInvadddelEquipinvRecs):

SELECT *
FROM CURRINV
WHERE VEND_CODE = @vend_code
AND (II_ST IS NULL
    AND IM_ST IS NULL
    AND IA_ST IS NULL
    AND IC_ST IS NULL)
AND VEND_CODE+SERIAL_NO+EQUIP_CODE NOT IN
    (SELECT VEND_CODE+SERIAL_NO+EQUIP_CODE
    FROM PREVINV)
ORDER BY SERIAL_NO,EQUIP_CODE

VB Code:

Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

cmd.CommandType = adCmdStoredProc
cmd.CommandText = "dbo.CreateInvadddelEquipinvRecs"
cmd.Parameters(1) = VendorCode
Set rs = cmd.Execute()

iRecCount = rs.RecordCount

Thanks,  Dan