Visual Basic.NET - problema con salida de datos

Tengo un problema con este errror
SqlParameterCollection no contiene SqlParameter con ParameterName '@valor'.
siendo que el procedimiento tengo asi
CREATE PROCEDURE [dbo].[DAU_ETARIOS_ENFERMERA]
@FechaI datetime,
@FechaT datetime,
@etarioI int,
@etarioT int
AS
BEGIN
declare
@valor int
select @valor = sum (case when PAsC_Paciente. PAsC_PAsC_Sexo ='F' then 1 else 0 end) from dbo.RPA_Formulario
Inner Join dbo.PAsC_Paciente On dbo.PAsC_Paciente.PAsC_PAsC_Numero =
dbo.RPA_Formulario.PAC_PAsC_Numero
where PAsC_Paciente.PAsC_PAsC_Numero = RPA_Formulario.PAsC_PAsC_Numero and RPA_Formulario.RPA_FOR_FechaDigit >= @FechaI and RPA_Formulario.RPA_FOR_FechaDigit <= @FechaT and DATEDIFF(yyyy, PAsC_PAsC_FechaNacim, getdate()) > = @etarioI and DATEDIFF(yyyy, PAsC_PAsC_FechaNacim, getdate()) < = @etarioT and ( RPA_FDA_TurnoProfe = '065420477-0' )

END

Dim sCnn As String
Dim totales As Integer
sCnn = "data source = casa; initial catalog = BD_SALON; user id = ; password = "
Dim slqcomand As New SqlCommand
Dim FechaI, FechaT As Date
Dim fechaII, FechaTT As String
Dim EtarioI, EtarioT As Integer
Dim hola As String
slqcomand.Connection = New SqlClient.SqlConnection(sCnn)

slqcomand.CommandType = CommandType.StoredProcedure
slqcomand.CommandText = "DAU_ETARIOS"
FechaI = Me.DateTimePicker1.Value
FechaT = Me.DateTimePicker2.Value
EtarioI = CInt(Me.TextBox1.Text)
EtarioT = CInt(Me.TextBox2.Text)
fechaII = FechaI.ToString("dd/MM/yyyy")
FechaTT = FechaT.ToString("dd/MM/yyyy")


slqcomand.Parameters.Add("@FechaI", SqlDbType.DateTime)
slqcomand.Parameters("@FechaI").Value = fechaII
slqcomand.Parameters.Add("@FechaT", SqlDbType.DateTime)
slqcomand.Parameters("@FechaT").Value = FechaTT
slqcomand.Parameters.Add("@etarioI", SqlDbType.Int)
slqcomand.Parameters("@etarioI").Value = EtarioI
slqcomand.Parameters.Add("@etarioT", SqlDbType.Int)
slqcomand.Parameters("@etarioT").Value = EtarioT
slqcomand.Connection = New SqlClient.SqlConnection(sCnn)

slqcomand.Connection.Open()
slqcomand.ExecuteScalar()


totales = slqcomand.Parameters("valor").Value
hola = totales

totales = ctype(slqcomand.ExecuteScalar(),integer)

no puedes preguntar por un parametro llamado valor en la coleccion de parametros si no lo has agregado desde codigo, el parametro si se declara en el procedimiento almacenado, pero esto no quiere decir que automaticamente se cree en la lista de parametros del comando. Como solo necesitas un valor puedes hacer lo que puse al principio, o tambien podrias, definir el parametro en vb.net y agregarlo al comando, estableciendolo como parametro de salida, ponerlo como parametro de salida en el procedimiento almacenado, y luego si, obtener su valor como lo estas haciendo.

espero que te sirva

igual sale valor en cero

mira ejecutando directamente el procedimiento almacenado, te debe dar el mismo valor, en tal caso, lo que debes revisar es el procedimiento, pues el codigo en vb lo tendrias bien

Yo tuve el mismo problema y resulta que era un error torpe, fijate si en tu codigo no tienes espacios entre las , pues yo tenia asi:
slqcomand.Parameters("@etarioT ").Value //
y lo arreglé asi
slqcomand.Parameters("@etarioT").Value

Yo tuve el mismo problema y resulta que era un error torpe, fijate si en tu codigo no tienes espacios entre las , pues yo tenia asi:
slqcomand.Parameters("@etarioT ").Value //
y lo arreglé asi
slqcomand.Parameters("@etarioT").Value