主题：请高手帮我看一下，这段代码哪里有错误。

If DataTables("成本核算表").DataCols("订单数量") < DataTables("成本核算表").DataCols("面料_附加费下限") Or DataTables("成本核算表").DataCols("订单数量") = DataTables("成本核算表").DataCols("面料_附加费下限") Then
    DataTables("成本核算表").DataCols("单价") = DataTables("成本核算表").DataCols("面料_供应商报价") + DataTables("成本核算表").DataCols("面料_放样费")+DataTables("成本核算表").DataCols("面料_小缸费")+DataTables("成本核算表").DataCols("面料_描稿费")+DataTables("成本核算表").DataCols("面料_开版费")
ElseIf DataTables("成本核算表").DataCols("订单数量") > DataTables("成本核算表").DataCols("面料_附加费下限") Or DataTables("成本核算表").DataCols("订单数量") < DataTables("成本核算表").DataCols("面料_附加费上限") Or DataTables("成本核算表").DataCols("订单数量") = DataTables("成本核算表").DataCols("面料_附加费上限")    Then
    DataTables("成本核算表").DataCols("单价") = DataTables("成本核算表").DataCols("面料_供应商报价") + DataTables("成本核算表").DataCols("面料_放样费")+DataTables("成本核算表").DataCols("面料_描稿费")+DataTables("成本核算表").DataCols("面料_开版费")
Else
     DataTables("成本核算表").DataCols("单价") = DataTables("成本核算表").DataCols("面料_供应商报价")
End If

上面这段代码，我要表达的意思是：

如果 订单数量≤附加费下限 则 单价=供应商报价+放样费+小缸费+描稿费+开版费
如果 附加费下限<订单数量≤附加费上限， 则 单价=供应商报价+放样费+描稿费+开版费
如果 订单数量 >附加费上限 则 单价=供应商报价

请狐狸爸爸 和各为高手帮我看一下，代码哪里出现了错误？谢谢