The Weird and The Wonderful

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.ComponentModel;
using System.Data.Objects.DataClasses;
using System.Data.Objects;
using System.Data;
using System.Reflection;

namespace DataObjectDemo {

[DataObject]
public abstract class BasicWebBO<TEntity, TKey, TContext>
        where TEntity : EntityObject,new()
        where TContext : ObjectContext, new() {

   private TContext _context;
   protected TContext Context {
            get {if (_context == null) {
                    _context = new TContext();
                }
                return _context;
            }
        }

   protected virtual string EntitySetName {
            get {
                return typeof(TEntity).Name;
            }
        }
    
[DataObjectMethod(DataObjectMethodType.Insert)]
public virtual void Insert(TEntity entity) {
   Context.AddObject(typeof(TEntity).Name,entity);
   Context.SaveChanges();
}

[DataObjectMethod(DataObjectMethodType.Update)]
public virtual void Update(TEntity entity) {
  Context.AttachTo(EntitySetName, entity);
  Context.ObjectStateManager.
  ChangeObjectState(
     entity, System.Data.EntityState.Modified);
  Context.ApplyCurrentValues(
     entity.EntityKey.EntitySetName, entity);
  Context.SaveChanges();
}

[DataObjectMethod(DataObjectMethodType.Delete)]
public virtual void Delete(TEntity entity) {
  Context.AttachTo(EntitySetName, entity);
  Context.DeleteObject(entity);
  Context.SaveChanges();
}

[DataObjectMethod(DataObjectMethodType.Select)]
public virtual TEntity Select(TKey key) {
//HACK: assume a scalar key and the key-property on index 0
  TEntity template = new TEntity();
  PropertyInfo pi = typeof(TEntity).GetProperties()[0];
  pi.SetValue(template, key, null);
  //
  EntityKey entityKey =
    Context.CreateEntityKey(EntitySetName, template);
  object entity;
  if (Context.TryGetObjectByKey(entityKey, out entity)) {
     return entity as TEntity;
  }
  return null;
}

 public class PersonBO : BasicWebBO<Person, int, DemoEntities> {
}

   [DataObjectMethod(DataObjectMethodType.Select)]
        public IEnumerable<Person> SelectAll() {
            return from person in Context.Person select person;
        }

        [DataObjectMethod(DataObjectMethodType.Update)]
        public void UpdateImage(int PNR, byte[] image) {
//...
}

Try
    Dim objReader As New System.IO.StreamReader(Application.StartupPath & "\" & TextBox3.Text & "_OAuthtk.dat")
    My.Settings.m_strToken = objReader.ReadLine()
    My.Settings.Save()

    objReader.Close()

    Dim objReader1 As New System.IO.StreamReader(Application.StartupPath & "\" & TextBox3.Text & "_OAuthtkST.dat")
    My.Settings.m_strTokenSecret = objReader1.ReadLine()
    My.Settings.Save()

    objReader1.Close()


    Me.Hide()
    Form1.Show()



Catch ex As Exception
    Me.Hide()
    Form3.Show()
End Try

CREATE PROCEDURE [dbo].[uspInsertUpdateDeleteFltcode]
 @fltCode varchar(8),@fltDesc Varchar(20),@fltGrp varchar(8),@casterRelated bit,
 @fltType varchar(2),@flag char(1),@shortDesc Varchar(8),@rptOrd Numeric(9,0)
AS
declare @Operation char(1)

BEGIN    
	SET NOCOUNT ON;   
	SET @operation=@flag  
	IF @operation='I'  
		BEGIN  
			INSERT INTO FltCode (Flt_Code,Flt_Desc,Flt_Grp,Caster_Related,Flt_Type,Sh_Desc,Rpt_Ord)  
			VALUES(@fltCode,@fltDesc,@fltGrp,@casterRelated,@fltType,@shortDesc,@rptOrd)  
		END  
	IF @operation='U'  
		BEGIN
....
...
.. 

Select Case DoStuff(SomeVariable)
    Case 0
        ' Do something with SomeVariable.
    Case 1, 2
        ' Do something else with SomeVariable.
    Case Else
        result = "omgnub"
End Select

public IEnumerable<Product> GetProductList()
{
    List<Product> data = null;
    var key = string.Format("{0}", "Some_Beautiful_Key");
    if (_cache != null)
        if (_cache.Contains(key))
            data = _cache.Get< List <Product> >(key);
    data = TheDao.GetProductTable();
    if (_cache != null)
        _cache.SaveOrUpdate(key, data);

    return data;
}