Visual Basic - Problemas con UPDATE

¡Hola!
A ver si sabéis lo que pasa aquí.
Resulta que quiero actualizar un campo de una tabla de ventas;
yo tengo definido ese campo como un Double; el problema es que cuando ejecuto DataEnvironment1.Connection1.execute "UPDATE....
cobra = " & cobrado &... y cobrado no tiene decimales no da problemas y se actualiza correctamente,ahora bien, si por ejemplo vale 212,35 sí que da problemas y dice que hay error en la sintaxis del UPDATE; aunque os parezca mentira llevo ya 2 dias con esto y estoy desesperada; aqui teneis la sentencia completa:
DataEnvironment1.Connection1.Execute "UPDATE DiaVentas " & _
"SET cobra = " & cobrado & _
" WHERE empresa = '" & Modulo1.nombreEmpresa & "' AND " & _
"dia = " & DataEnvironment1.rsVenta.Fields("dia") & " AND " & _
"mes = '" & DataEnvironment1.rsVenta.Fields("mes") & _
"' AND anyo = " & Modulo1.anyo

A ver si me echáis una mano
En Access tambien lo tengo declarado como Double

tienes que quitar la coma y poner un punto antes de actualizar.

cobrado =replace(cobrado ,",",".")

y ya esta.

Chao.

Pruebalo asi
"SET cobra = " & Format(cobrado,"#####0.00) & _
" WHERE empresa = '" & Modulo1.nombreEmpresa & "' AND " & _
"dia = " & DataEnvironment1.rsVenta.Fields("dia") & " AND " & _
"mes = '" & DataEnvironment1.rsVenta.Fields("mes") & _
"' AND anyo = " & Modulo1.anyo

Saludos Manuel

Muchas gracias resalaos!!!!!!!!!!

Pa lo que quieras...