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