output параметры

oCommand3.CommandText = "Search_Price_on_Kategory_for_Confirm"
                    oCommand3.CommandType = CommandType.StoredProcedure
                    oCommand3.Connection = oConnection3
                    oCommand3.Parameters.Add("@Kod_of_declare", SqlDbType.Int).Value = MyClass.Kod
                    oCommand3.Parameters.Add("@Data_zaezd", SqlDbType.DateTime).Value = MyClass.ДатаЗаезда1
                    oCommand3.Parameters.Add("@Data_viezd", SqlDbType.DateTime).Value = MyClass.ДатаВыезда1
                    oCommand3.Parameters.Add("@Name_of_category", SqlDbType.VarChar).Value = oDatareader.GetValue(1).ToString
                    Debug.WriteLine(oDatareader.GetValue(1).ToString)
                    oCommand3.Parameters.Add("@Error_output", SqlDbType.Int).Value = -1
                    oCommand3.Parameters.Item(4).Direction = ParameterDirection.Output
                    oCommand3.Parameters.Add("@NDS", SqlDbType.Int).Value = -1
                    oCommand3.Parameters.Item(5).Direction = ParameterDirection.Output
                    oCommand3.Parameters.Add("@Valuta", SqlDbType.Int).Value = -1
                    oCommand3.Parameters.Item(6).Direction = ParameterDirection.Output


                    Dim oDatareader3 As SqlClient.SqlDataReader = oCommand3.ExecuteReader(CommandBehavior.CloseConnection)

                    While oDatareader3.Read
' Тут получаю значение соответствующих полей
                        Dim a2 As String = oDatareader3.GetValue(2).ToString ' Цена номера
                        Dim a4 As String = oDatareader3.GetValue(3).ToString ' Цена за завтрак
                        Dim a3 As String = oDatareader3.GetValue(4).ToString

                        oDatareader3.NextResult()

'  тут я вроде как получаю значение выходных параметров, но если oDatareader3.Read не вошел в цикл, то не получаю а надо бы
If oCommand3.Parameters.Item(4).Value = 1 Then
                            docWord.Tables.Item(4).Rows.Item(i).Cells.Item(6).Range.Text = "Нет договора нал. по тому же периоду"
                        ElseIf oCommand3.Parameters.Item(4).Value = 2 Then
                            docWord.Tables.Item(4).Rows.Item(i).Cells.Item(6).Range.Text = "Нет такой категории номера по договору нал."
                        end if
                    end while