Real maps to SqlSingletry
Dim dblDiscount As Double = SqlDouble.op_Explicit(drPromDetail.GetSqlDouble(2))orDim dblDiscount As Double = SqlDouble.op_Explicit(drPromDetail.GetSqlSingle(2).ToSqlDouble())