Muchas gracias por tu tiempo. Lei las definiciones del link que me pasastes y decidi eliminar el DataAdapter y utilizar el OdbcCommand para invocar al SP.
 
Asi quedo mi codigo:    
Código vb:
Ver original- Public Function Prueba(ByVal nombre As String) As XmlDocument                         
-             Dim conection As OdbcConnection = New OdbcConnection("dsn=IVR-Outbound;uid=******;pwd=*******;") 
-   
-             Dim Data As OdbcCommand = New OdbcCommand("SP_CONTACTOS_OUT", conection) 
-             conection.Open() 
-             Data.CommandType = CommandType.StoredProcedure 
-                         
-             Data.Parameters.Add("@ID_CAMPANA", OdbcType.NVarChar) 
-             Data.Parameters("@ID_CAMPANA").Value = "1" 
-             Data.Parameters("@ID_CAMPANA").Direction = ParameterDirection.Input 
-              
-             Dim myReader As OdbcDataReader = Data.ExecuteReader()myReader.Read()                                    
-             Dim Suscrip As String = myReader.Item(0)     
-             conection.Close()                                    
-             Return Xml             
- End Function 
Sin embargo todavia me sigue dando el mismo error 
