How to set the round figure value with grid control in vb6

i am creating an account application.in this application i am sending the data from ms access database to MSH Flex grid through Recordset.but some columns taking 8-10 digits after decimal poing.but i want only 2-3 digit after decimal.so what is the solution of this problem.i m using double data type for that fields.i which i m facing this problem.
my code is

'MSHDATA1.ColData.Sparse = False
RSMSHDATA.Open "select distinct nop_descp as Nature_Of_Payment,posting_date as Date_Of_Payment,cus_name AS Customer_Name, tds_rate as TDS_Rate, sch_rate as Surcharge_Rate, education_cess_rate AS Education_Cess_Rate, credited_amt as Credited_Amount,in_kind as BookEntry,tds_amt as TDS_Amount,sch_amount as SurchargeAmount,education_cess_amt as EducationCessAmount,total_amt as Total_Amount from Dd_RI WHERE com_code=" & Sel_Comp_Code & " order by cus_name", CNN, adOpenDynamic, adLockBatchOptimistic, adCmdText
'MsgBox RSMSHDATA.RecordCount
Set MSHDATA1.DataSource = RSMSHDATA
Call RESIZE_FLEXGRID_COLUMNS(MSHDATA1, 2000)
RSMSHDATA.Close

so how to set the round figure value with grid control.