Error con store procedure en visual.net

[Joel251]

Hola flaviovich gracias por tu respuesta, lo hice de la forma como dijistes y el codigo me quedo asi:

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
                       
            DataAdapter.SelectCommand.Parameters.Add("@ID_CAMPANA", OdbcType.VarChar, 10)
            DataAdapter.SelectCommand.Parameters("@ID_CAMPANA").Value = "1"
            DataAdapter.SelectCommand.Parameters("@ID_CAMPANA").Direction = ParameterDirection.Input
                
            Dim myReader As OdbcDataReader = DataAdapter.SelectCommand.ExecuteReader()                        
            
           myReader.Read()            
           
            Dim Suscrip As String = myReader.Item(0)                        
            conection.Close()                        
            Return Xml
            End Function
 

pero igual me sigue dando el mismo error