Visual Basic - grabar base de datos

hola amigos del foro, tengo una consulta tengo una base de datos llamada ventas en la cual tengo campos de tipo single en los text (precio,ventas, totales) tambien tengo comandos (nuevo,grabar,modificar,salir)

cuando pongo nuevo registro en boton del comando
e ingreso las cantidades en los tex
dim a,b as double
a=val(text1) text1 es el precio
b=val(ventas) text2 ventas
' en tiempo de ejecucion el comando le los los valores decimales
precio=40
ventas=10.5

totales a+b

text3=totales

hasta aqui todo bien, pero cuando pongo grabar, el 10.5 que ingrese en el tex se transforma en 105, osea borra el decimal y yo quiero que me guarde en la base de datos y me muestre lo normal 10.5 alquien me puede ayudar por favor

Supongo que la base de datos la tenés echa en Acces, así que tenés que modificar el campo numérico en la tabla que querés guardar y elegir en Tipo de datos: Numérico y allí en el Tamaño del campo escoger Doble (con dos decimales mejor).
Si necesitás guardar datos en ese campo con un LABEL, tenés que poner Cdbl(LABEL). Cdbl es una función que guarda de carácter a un campo Doble.