如何更新数据取2位小数？

Private Sub Command7_Click()
Dim Ugeng As String
'Ugeng = Text4.Text
    Conn.Execute "Update  导入模版 Set [税额] = [数量]*[单价]/(1+[税率])*[税率]"
End Sub