anchor.diff:          member __.CreateConnection(connectionString) = upcast new OdbcConnection(connectionString)
           member __.CreateCommand(connection,commandText) = upcast new OdbcCommand(commandText, connection:?>OdbcConnection)
           member __.CreateCommandParameter(name,value,dbType) = 
  -            let p = OdbcParameter(name,value)            
  +            let p = OdbcParameter()            
  +            p.Value <- value
  +            p.ParameterName <- name
               if dbType.IsSome then p.DbType <- dbType.Value 
               upcast p
           member __.CreateTypeMappings(con) = createTypeMappings (con:?>OdbcConnection)
  
positive.code:                 sqlQuery.Ordering
                  |> List.iteri(fun i (alias,column,desc) -> 
                      if i > 0 then ~~ ", "
                      ~~ (sprintf "%s.%s %s" alias column (if not desc then "DESC" else "")))
  
              // SELECT
              if sqlQuery.Distinct then ~~(sprintf "SELECT DISTINCT %s " columns)
              elif sqlQuery.Count then ~~("SELECT COUNT(1) ")
              else  ~~(sprintf "SELECT %s " columns)
              // FROM
              ~~(sprintf "FROM %s as %s " baseTable.Name baseAlias)       
              fromBuilder()
              // WHERE
              if sqlQuery.Filters.Length > 0 then
  
negative.code: open FSharp.Data.Sql.Common
  
  type internal OdbcProvider(resolutionPath) =
      let pkLookup =     Dictionary<string,string>()
      let tableLookup =  Dictionary<string,Table>()
      let columnLookup = Dictionary<string,Column list>()
  