We have been trying to obtain an output parameter from a stored procedure
in SQL Server (6.50.258) Service pak 3, using ADO 1.5 with VB 5.0 running
on Windows 95, without success. Below is the VB and SQL source code. We
appreciate any assistance you could offer.

Visual Basic 5.0

Private Sub cmdTestOutputParam_Click()

        Dim sOut As String
        Dim cmd As ADODB.Command
        Dim par As ADODB.Parameter

        Set cmd = New ADODB.Command
        Set par = New ADODB.Parameter

        cmd.ActiveConnection = cn
        cmd.CommandType = adCmdStoredProc
        cmd.CommandTimeout = 15
        cmd.CommandText = "sp_OutputTest"

        sOut = "2"

        Set par = cmd.CreateParameter("RetVal", adVarChar, adParamOutput, 1, sOut)
        cmd.Parameters.Append par

        cmd.Execute

        MsgBox (sOut)   ' THIS IS RETURNING A VALUE OF 2 IN sOut

End Sub

SQL SERVER 6.50.258  [sp_OutputTest]

if exists (select * from sysobjects where id =
object_id('dbo.sp_OutputTest') and sysstat & 0xf = 4)
                drop procedure dbo.sp_OutputTest
GO

CREATE PROCEDURE sp_OutputTet

AS
begin

end
go

Any help will be appreciated.

Arthur