Uppdaterings problem

Vad ska man göra?
Jag tar ut data från en access databas
Data typ är Decimal med 2 decimaler.

Pris = objRecordset1("Pris")
Detta har värde 4,1

Och det har hämtats ett varde från en textruta
Antal = Request.Form ("Antal")
Denna har värde 2

Priset = Pris * Antal

Då får jag
Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer
/a/b/Oa.asp, line 116

Provar då med
Priset = Antal * CDbl(Pris)

Får då värdet 8,2

Ska sedan lägga in detta i databasen
Data typ är Decimal med 2 decimaler.

Set rs = Server.CreateObject("ADODB.Recordset")
MySQL = "UPDATE Kund SET Kund.Pengar = [Kund]![Pengar]-"&Priset&" WHERE (((Kund.Kund_id)="&Kund_id&"));"
set rs = con.execute ( MySQL )
set RS = nothing

Feltyp:
Microsoft JET Database Engine (0x80040E14)
Syntaxfel i UPDATE-uttryck.
/a/b/Oa.asp, line 123

Är det någon som har något förslag.

Alfa

Kanske?

 MySQL = "UPDATE Kund SET Pengar = Pengar - " & Priset & " WHERE Kund_Id = " & Kund_id

Microsoft JET Database Engine (0x80040E14)
Syntaxfel (operator saknas) i frågeuttrycket 'Pengar -'.

Nej då blir det fel

MySQL = "UPDATE Kund SET Pengar = Pengar - " & replace(Priset,",",".") & " WHERE Kund_Id = " & Kund_id

Det funkar säkert ochså men jag löste det med.

Priset = CDbl(Pris) * CDbl(Antal)
Priset = replace(priset,",",".")

Alfa