anchor.diff:                  |> List.iter(fun e -> 
                       match e._State with
                       | Created -> 
  -                        let cmd = createInsertCommand e
  +                        use cmd = createInsertCommand e
                           Common.QueryEvents.PublishSqlQuery cmd.CommandText
                           let id = cmd.ExecuteScalar()
                           match e.GetColumnOption pkLookup.[e.Table.FullName] with
  
positive.code:                 cmd
              
              let createDeleteCommand (entity:SqlEntity) =
                  use cmd = (this :> ISqlProvider).CreateCommand(con,"")
                  cmd.Connection <- con 
                  sb.Clear() |> ignore
                  let pk = pkLookup.[entity.Table.FullName] 
  
negative.code: 
              con.Open()
              let createInsertCommand (entity:SqlEntity) =                 
                  let cmd = (this :> ISqlProvider).CreateCommand(con,"")
                  cmd.Connection <- con 
                  let pk = pkLookup.[entity.Table.FullName] 
                  let columnNames, values = 
  