Gostaria que alguem me mostrasse, se possivel com exemplo, como eu faco para pegar um retorno na minha aplicacao em vb6 de uma funcao ou procedure do sql server

Dim wcm_Executa As New ADODB.Command
With wcm_Executa
    .ActiveConnection = gConexao
    .CommandType = adCmdStoredProc
    .CommandText = "sp_ocGeraBalancoFinanceiro"
    Call .Parameters.Refresh
    .Parameters("@cdUnidGestora").Value = gcCodigo2
    .Parameters("@dtAno").Value = Year(gdtFinal)
    .Parameters("@CodErro").Value = 0
    .Parameters("@DescErro").Value = ""
    Call .Execute(Options:=adExecuteNoRecords)
    If .Parameters("@CodErro").Value <> 0 Then
       MsgBox "Erro: " & .Parameters("@CodErro").Value & " - " & .Parameters("@DescErro").Value
       Exit Sub
    End If

os Parâmetros @codErro e @DescErro pegarão o conteúdo que foi passado pela stored procedure. Estes campos dever ser definidos na stored procedure como output (@codErro int outpu, @descErro Varchar(100) output)