introducir a base de datos numeros decimales

[jjon]

Hola a todos:

tengo un problema a la hora de introducir unos valores con coma a la base de datos mysql. He ejecutado el programa paso a paso y veo que tengo en la variable tara tengo un valor (double) de 32.5 pero al introducirmelo en la base de datos me pone 32.00. como puedo solucionar esto? necesito alguna funcion especifica??

dejo aqui mi programa por si acaso ve alguien el fallo y puede ayudarme

Option Explicit

Public conexion As ADODB.Connection

Private Sub Form_Load()
Dim Linea As String
Dim retorno As String
Dim fecha As String, hora As String, codigoproducto As Integer, tara As Double, peso As Double, siguiente As Integer
Dim Sql_Insert, Sql_Select As String
Dim num_linea As Long
Dim rs As ADODB.Recordset

Set conexion = New ADODB.Connection
conexion.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" & _
"server=localhost; " & _
"uid=root; " & _
"pwd=barroeta" & _
";database=pruebacon4lineas" & _
";OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

conexion.ConnectionTimeout = 5
conexion.Open
Set rs = New ADODB.Recordset

siguiente = 0
Open "C:\UNAPESADA.TXT" For Input As #1

Do Until EOF(1)
Line Input #1, Linea

Debug.Print Linea

If siguiente = 0 Then
fecha = Left(Linea, 7)
hora = Mid(Linea, 9, 5)
End If

If siguiente = 2 Then

codigoproducto = CInt(Mid(Linea, 5, 3))
tara = Val(Mid(Linea, 10, 5))
peso = Val(Mid(Linea, 16, 7))
End If
siguiente = siguiente + 1
Loop
Close #1

Sql_Select = "select max(idlinea) from lineas"
rs.Open Sql_Select, conexion, adOpenStatic, adLockOptimistic

Debug.Print rs.Fields(0)

num_linea = CLng(rs.Fields(0).Value)
num_linea = num_linea + 1

Sql_Insert = "INSERT INTO lineas(idlinea,tara, fecha, codigoproducto, peso, hora) Values(" & num_linea & _
"," & Val(tara) & ",'" & fecha & "'," & codigoproducto & "," & Val(peso) & ",'" & hora & "')"

conexion.Execute Sql_Insert
siguiente = 0

End Sub

GRACIAS DE ANTEMANO