ขอโค๊ด VB ตัดจุดทศนิยมให้เหลือสองตำแหน่งหน่อยค๊าฟ หลังจากที่คำนวณตัวเลขเรียบร้อยแล้ว

Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System.Data.SqlClient
Public Class frmutility
    Dim db As New RUDataContext
    Dim ds As New DataSet
    Private myRandom As New System.Random(CType(System.DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer))
    Dim r As New Random()
    Public strConn As String = "Data Source=PC2011071118YRB;Initial Catalog=R&U System;User ID=sa;Password=1234"
    Dim bs As New BindingSource
    Dim conn As SqlConnection = New System.Data.SqlClient.SqlConnection
    Dim conna As SqlConnection = New System.Data.SqlClient.SqlConnection
    Dim sql As String
    Dim sqa As String
    Public staConn As String = "Data Source=PC2011071118YRB;Initial Catalog=R&U System;User ID=sa;Password=1234"