Visual Basic - no guarda decimales en db access

hola, antes que nada muchas gracias por tomarse su tiempo para leer el post, el problema es el siguiente:
tengo un programa que estoy haciendo y tengo que recorrer un flexgrid e ir cargando una serie de items en una tabla el codigo que uso es el siguiente

For i = 2 To grilla.Rows - 1
If Me.grilla.TextMatrix(i, 0) = "" Then
On Error Resume Next
Else
Adodc4.RecordSource = "select * from detallefactura"
Adodc4.Refresh
Adodc4.Recordset.AddNew
Adodc4.Recordset!numfactura = Val(lblfactura.Caption)
Adodc4.Recordset!idproducto = Val(grilla.TextMatrix(i, 0))
Adodc4.Recordset!cantidad = Val(grilla.TextMatrix(i, 3))
Adodc4.Recordset!precio = val(grilla.TextMatrix(i, 2))
Adodc4.Recordset.Update
End If
Next

los valores se leen bien desde la grilla pero al insetar en la db no pone las ni los decimales he probado de todo tipo de formas con el access y de una u otra manera no lo agrega como tiene que ser, en algunos casos redondea y en otros pone sin coma por eje vb entrega un valor "1,50" y en el access se agrega "1" o "150". Los campos los probe poniendo como moneda, número (general, fijo, etc.) ninguno funcionó. alguien tiene idea por que?. Saludos

Quita el Val y procura que el punto o coma decimal coincida con tu configuracion regional.

hola, gracias por responder, me he fijado anteriormente en la conf. regional y en lo de los puntos y comas y no pasa nada, tambien probe sin el val y con cdbl etc. y lo mismo no funciona. Me tiene loco ese error

Seleccina la tabla (en acces) donde tienes la tabla. Clic derecho, abrir en vista de diseño, en las propiedades del campo donde tienes el problemas, asegurate que en ESCALA y en LUGARES DECIMALES no esté en 0. en Escala ponle 2, si kieres ke se guarden 2 posiciones decimales o el numero ke kieras.