Procedure 'SP_CONTACTOS_OUT' expects parameter '@ID_CAMPANA', which was not supplied

[Joel251]

Hola

espero que me ayuden soy nuevo en el foro y no sabia en donde colocar el tema asi que lo puse aqui

tengo un servicio web en el que declaro un metodo y dentro de el, una funcion

la funcion se debe conectar a un store procedure que tiene un parametro de entrada y traerme los datos pero cuando ejecuto el servicio web me da el siguiente error

Procedure 'SP_CONTACTOS_OUT' expects parameter '@ID_CAMPANA', which was not supplied

Tengo mas de una semana intentando buscar la solucion y no encuentro la manera de que me corra bien, por favor si alguien sabe necesito ayuda!!!!!!


muchas gracias de antemano

este es el codigo de la funcion que se conecta al store procedure:

Código vb:

Public Function Prueba(ByVal nombre As String) As XmlDocument
            
            Dim conection As OdbcConnection = New OdbcConnection("dsn=IVR-Outbound;uid=******;pwd=******;")
 
            Dim DataAdapter As OdbcDataAdapter = New OdbcDataAdapter("SP_CONTACTOS_OUT", conection)
            conection.Open()
            DataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
                       
            Dim parametro As OdbcParameter = DataAdapter.SelectCommand.Parameters.Add("@ID_CAMPANA", OdbcType.VarChar, 10)
            parametro.Direction = ParameterDirection.Input
            parametro.Value = "1"
            DataAdapter.SelectCommand.Parameters.Add(parametro)
            
            Dim myReader As OdbcDataReader = DataAdapter.SelectCommand.ExecuteReader()
            
            myReader.Read()
            Dim Suscrip As String = myReader.Item(0)
            
            conection.Close()
            
            Return Xml
        
        End Function