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 originalPublic 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