Visual Basic - update

hola

estoy utilizando un update donde me calcular el costo diario y el costo. Pero al momento de calcularlo no pone los decimales.

aki les mando el codigo:

Set base = New ADODB.Connection
Set rs = New ADODB.Recordset
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dire & " ;Persist Security Info=False"

Set actualiza = New ADODB.Command
actualiza.ActiveConnection = base

rs.Open "SELECT * FROM gastosfijos", base, adOpenKeyset


actualiza.CommandText = "UPDATE gastosfijos SET [Costo Diario]=[Precio Mensual]/Días,COSTO=(([Precio Mensual]/Días)*([Tiempo de Trabajo]/8))"
actualiza.Execute

rs.Close

ya pudeee!!!

ahora no quiero que me ponga todos los decimales y nomas que me ponga dos decimales.

hola.
dime el tipo de campo q escogistes

de esta manera creo las tabla:

CD.Filter = "Access File(*.mdb)|*.mdb|Text File (*.txt)|*.txt"
CD.FilterIndex = 1
CD.ShowSave
Label39.Caption = CD.FileName
dire = Label39.Caption
Text16.Text = dire

Set cCataleg = New ADOX.Catalog

cCataleg.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dire & ";"

Set cTaula = New ADOX.Table
With cTaula
.Name = "gastosfijos"
.Columns.Append "Precio Mensual", adDouble
.Columns.Append "Días", adDouble
.Columns.Append "Tiempo de Trabajo", adDouble
.Columns.Append "Costo Diario", adDouble
.Columns.Append "COSTO", adDouble
.Columns(3).Attributes = adColNullable
.Columns(1).Attributes = adColNullable
.Columns(2).Attributes = adColNullable
.Columns(4).Attributes = adColNullable
.Columns(0).Attributes = adColNullable
End With

Set cTabla2 = New ADOX.Table
With cTabla2
.Name = "gastosvariables"
.Columns.Append "Costo de Inversión", adDouble
.Columns.Append "Días", adDouble
.Columns.Append "Tiempo de Trabajo", adDouble
.Columns.Append "Costo Diario", adDouble
.Columns.Append "COSTO", adDouble
.Columns(3).Attributes = adColNullable
.Columns(4).Attributes = adColNullable
End With

Set cTabla3 = New ADOX.Table
With cTabla3
.Name = "materialyequipo"
.Columns.Append "Número", adDouble
.Columns.Append "Concepto", adVarWChar
.Columns.Append "Precio Costo", adDouble
.Columns.Append "Cantidad", adDouble
.Columns.Append "Valor", adVarWChar, 70
.Columns.Append "Tipo Cambio", adDouble
.Columns.Append "Total", adDouble
.Columns.Append "Utilidad", adDouble
.Columns.Append "Descuento", adDouble
.Columns.Append "Aumento", adDouble
.Columns.Append "Precio U/público", adDouble
.Columns.Append "Total Público", adDouble
.Columns(0).Attributes = adColNullable
.Columns(5).Attributes = adColNullable
.Columns(6).Attributes = adColNullable
.Columns(7).Attributes = adColNullable
.Columns(8).Attributes = adColNullable
.Columns(9).Attributes = adColNullable
.Columns(10).Attributes = adColNullable
.Columns(11).Attributes = adColNullable
End With

Set cTabla4 = New ADOX.Table
With cTabla4
.Name = "manodeobra"
.Columns.Append "Gastos", adVarWChar
.Columns.Append "Precio Público", adDouble
.Columns.Append "Cantidad", adDouble
.Columns.Append "Costo Total", adDouble
.Columns.Append "Salario", adDouble
.Columns.Append "Utilidades", adDouble
.Columns(3).Attributes = adColNullable
.Columns(5).Attributes = adColNullable
.Columns(1).Attributes = adColNullable
.Columns(2).Attributes = adColNullable
.Columns(4).Attributes = adColNullable
.Columns(0).Attributes = adColNullable
End With