Здравствуйте! Подскажите, почему не хочет возвращать в программу VB параметры из ХП. С числовыми проблем нет, все возвращает списком.

Set cnn = New ADODB.Connection
Set rst = New Recordset
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=" & pasword & ";Persist Security Info=True;User ID=" & login & ";Initial Catalog=AiS_2;Data Source=" & server
Set cmd = New ADODB.Command
cnn.Open
Set cmd.ActiveConnection = cnn
cmd.CommandText = "NameFirma_po_Nomeru"
cmd.CommandType = adCmdStoredProc


Set rst.ActiveConnection = cnn
Set prm = cmd.CreateParameter("@NameFirma_", adVarWChar, adParamOutput)
cmd.Parameters.Append prm

NomFirma = Text7.Text '--'--- Взяли номер Фирмы и послали его в ХП ----
Set prm = cmd.CreateParameter("@IdFirma_", adInteger, adParamInput, , NomFirma)
cmd.Parameters.Append prm

cmd.Execute
Text2.Text = cmd.Parameters("@NameFirma_")
cnn.Close


ХП :
ALTER PROCEDURE NameFirma_po_Nomeru
(@NameFirma_ varchar(30) OUTPUT, @IdFirma_ int)
AS
Select @NameFirma_=NaimFirma from Firma
WHERE @IdFirma_=IdFirma
go

declare @s varchar(30)
exec NameFirma_po_Nomeru @s OUTPUT, 5
select @s

пишет ошибку - Parametr qbject is improperty denined. Inconsistent or incomplete
infomation was providered.

Спасибо, boevik - работает!