Visual Basic - redondeo

hola
estoy utilizando un datagrid con el datasource a un adodc, buen el caso es que estoy haciendo operaciones dentro del datagrid y en una columna los valores me los esta redondeando y no quiero que me los redondee,¿como le hago?
aqui les va el codigo:

Dim pm, cd, c, d, tt As Double

Adodc1.Refresh
Adodc1.Recordset.MoveFirst

While Not Adodc1.Recordset.EOF
pm = DataGrid1.Columns.Item(0)
d = DataGrid1.Columns.Item(1)
tt = DataGrid1.Columns.Item(2)
cd = (pm / d)
c = (pm / d) * (tt / 8)
DataGrid1.Columns.Item(3) = cd 'aqui es donde me lo esta redondeando
DataGrid1.Columns.Item(4) = c 'aqui no me lo redondea, lo cual está bien
Adodc1.Recordset.MoveNext
Wend

de antemano muchas gracias...

Prueba asi:

cd = cdbl(pm) / cdbl(d)
c = (cdbl(pm) / cdbl(d)) * (cdbl(tt) / 8)

Busca sobre la funcion cdbl