主题：如何设置保留小数位数

Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "Select sum(正品数) From {日报表} Where 工序 ='"& "干压生产线装坯" &"' And 联号 = '"& dr("联号") &"' And 生产状态 = '"& "正常生产" &"'"
    Dim sum As Single =cmd.ExecuteScalar()
    Dim cmd1 As New SQLCommand
    cmd1.C
    cmd1.CommandText = "Select sum(生产数) From {日报表} Where 工序 ='"& "干压生产线装坯" &"' And 联号 = '"& dr("联号") &"' And 生产状态 = '"& "正常生产" &"'"
    Dim sum1 As Single =cmd1.ExecuteScalar()
    dr("装坯生产数")=sum1
    dr("装坯正品数")=sum
    dr("装坯合格率")=sum/sum1

以上代码中黄色显示语句运行后，小数位数保留4位，我想只保留2位，应该如何编写。

知道了，谢谢