[RESOLVED] Problems with a SPROC

[Mark Gambo]

I am trying to create a SPROC and then access it via VB6. I am able to create the SPROC by using the following code:

'Stored Procedure
USE IADATA
DROP PROCEDURE dbo.GetCasesTeam
GO
Create Procedure dbo.GetCasesTeam
    @InvUnit VarChar(100),
    @Team VarChar(100) OutPut,
    @Count int Output
 
As
 
    SELECT @Team = dbo.INCIDENTS.INV_TITLE, @Count = Count(IA_ADM.PRIMARY_CASE_REC.CASENUM)
    FROM dbo.INCIDENTS INNER JOIN IA_ADM.PRIMARY_CASE_REC ON
    dbo.INCIDENTS.INCNUM = IA_ADM.PRIMARY_CASE_REC.PC_INCNUM
    WHERE dbo.INCIDENTS.INV_UNIT in('@InvUnit') AND
    dbo.INCIDENTS.STATUS in('Active','Suspended')
    GROUP BY dbo.INCIDENTS.INV_TITLE
    ORDER BY Count(IA_ADM.PRIMARY_CASE_REC.CASENUM);
 
RETURN @@ERROR

But when I run the following code I get an error on the .Execute Line, "Type name is invalid". WHat am I doing wrong? Also when I try to use adVarChar in the create Parameter property I get an "Parameter Object is improperly define. Incoonsistant or incomplete information was provided" error

'VB Code
Private Sub Form_Load()
 
Dim adoConn As ADODB.Connection
Dim adoCmd As ADODB.Command
 
Set adoConn = New ADODB.Connection
adoConn.Open connString
 
Set adoCmd = New ADODB.Command
With adoCmd
    Set .ActiveConnection = adoConn
    .CommandText = "GetCasesTeam"
    .CommandType = adCmdStoredProc
    .Parameters.Append .CreateParameter("RetVal", adInteger, adParamReturnValue)
    .Parameters.Append .CreateParameter("InvUnit", adVariant, adParamInput) '<==Error when I use adVarChar
    .Parameters.Append .CreateParameter("Team", adVariant, adParamOutput, 100)
    .Parameters.Append .CreateParameter("Count", adInteger, adParamOutput)
    .Parameters("InvUnit").Value = "Unit A"
 
    .Execute , , adExecuteNoRecords 'the stored procedure does not return any records '<=== Error "Type name is invalid"
 
    Debug.Print .Parameters("Team").Value, .Parameters("Count").Value
End With

End Sub

Thanks!