output параметры процедуры и RecordSet

[RuslanG]

есть такой код
Dim objCmd1 As New ADODB.Command

Dim sParmName As String
Dim objRs1 As New ADODB.Recordset
objCmd1.CommandText = "Check"
objCmd1.CommandType = adCmdStoredProc
Set objConn = GetNewConnection
objCmd1.ActiveConnection = objConn
objCmd1.Parameters.Refresh
objCmd1.Execute
If objCmd1.Parameters.Item(0).Value < 0 Then
Text2.Text = objCmd1.Parameters.Item("@cReturnStr").Value
Else
Text2.Text = objCmd1.Parameters.Item(1).Value
End If
objConn.Close
Set objRs = Nothing
Set objConn = Nothing
Set objCmd1 = Nothing
Set objParm1 = Nothing

это все нормально работает и выходные параметры(Return Value и output) возвращаются
но если вместо выделенной строчки написать
Set objRs1 = objCmd1.Execute
то у нас будет RecordSet
Но выходные параметры буду = Empty и Null
как получить и RecordSet и выходные параметры с помощью команды Execute

[Antonariy]

objRs1.Open objCmd1