欢迎阿泰回来！

阿泰，帮我看看这段代码的最后一步计算问题：
startConn
cn.CursorLocation = adUseClient
SQL = "select Avg(ChgRate) As Average From Item where NOA between " & TextStart.Text & " And " & TextEnd.Text
SQL1 = "select MAX(ChgRate) As MaxValue From Item where NOA between " & TextStart.Text & " And " & TextEnd.Text
SQL2 = "select MIN(ChgRate) As MinValue From Item where NOA between " & TextStart.Text & " And " & TextEnd.Text
If rs.State Then rs.Close
rs.Open SQL, cn, adOpenKeyset, adLockOptimistic
AvgText.Text = Format(rs.Fields("Average"), "00.00%")
If rs.State Then rs.Close
rs.Open SQL1, cn, adOpenKeyset, adLockOptimistic
MaxText.Text = Format(rs.Fields("MaxValue"), "00.00%")
If rs.State Then rs.Close
rs.Open SQL2, cn, adOpenKeyset, adLockOptimistic
MinText.Text = Format(rs.Fields("MinValue"), "00.00%")
ChaJuText.Text = MaxText.Text - MinText.Text
除了ChaJuText.Text = MaxText.Text - MinText.Text，以上的计算都是成功的。但ChaJuText.Text = MaxText.Text - MinText.Text运行时出现“类型不匹配”的错误。数据库和界面TextBox的Dataformat属性都设为百分数，2位小数。为知问题出在哪里。