Visual Basic - SIGO SIN SOLUCIONARLO( COMAS Y PUNTOS)URGENTE

Os agradezco vuestra ayuda a todos los que habeis intentado ayudarme, pero sigo sin solucionar el problema, quizas no me explicado bien, no sé...lo vuelvo a explicar:
yo calculo el precio de una carga, por ejem: 17.5 kg, en el programa lo pongo tal y como está aquí: 17.5, (porque si pongo 17,5 el programa hace la operación como si fuesen 17kg) pero que pasa que access me absorbe el dato como 175. He hecho una pequeña trampa que es la siguiente, en una caja de texto para que opere meto 17.5, y al perder el foco, lo copio a otra caja de texto cambiando el punto por coma, y será esta la caja que se conecte con la BD. Pero entonces me da un error al intentar grabar los registros:
me señala el update y me pone: "Acción cancelada por el objeto asociado". En la BD de datos he definido el campo como doble, luego como simple, pero nada. AH! una cosa he hecho un programilla para probar en el que el campo está definido como doble y no me da error, pero en el programa que me interesa que funcione, no funciona.
el programilla de prueba :
Private Sub Grabar_Click()

vari = Text1.Text
VARIA = Replace(vari, ".", ",")
Text5.Text = VARIA

vari = Text2.Text
VARIA = Replace(vari, ".", ",")
Text4.Text = VARIA

vari = Text3.Text
VARIA = Replace(vari, ".", ",")
Text6.Text = VARIA

Data1.Recordset.Update
Data1.Recordset.AddNew

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Private Sub Nvo_Click()
Data1.Recordset.AddNew
Text2.SetFocus
End Sub

Private Sub Multiplicacion_Click()
MULTI = Val(Text1.Text) * Val

Hola Primero en la BD fijate que el campo sea numerico y tenga 2 decimales, en el programa cuando guardas le pones lo ste
!kg=format(text1.text,"##0.00")

espero que sea esto y Suerte