Gange pris med antal

hvorfor virker denne linie ikke, jeg forsøger at gange min pris med den sum jeg har lavet:

<td><div align="right">DKK <%=((rsIndkoebskurv.Fields.Item("Pris_DKK").Value)*(rsIndkoebskurv.Fields.Item("VinAntal").Value))%></div></td>

Pris_DKK er datatype decimal(10,2)

recordset:
<%
Dim rsIndkoebskurv__MMColParam
rsIndkoebskurv__MMColParam = Session.SessionID
%>
<%
Dim rsIndkoebskurv
Dim rsIndkoebskurv_numRows

Set rsIndkoebskurv = Server.CreateObject("ADODB.Recordset")
rsIndkoebskurv.ActiveConnection = MM_scandlines_STRING
rsIndkoebskurv.Source = "SELECT Overskrift, Land, Pris_DKK, IDvin, SessionID, VinID, SUM(Antal) AS VinAntal  FROM Indkoebskurv, Vin  WHERE SessionID = " + Replace(rsIndkoebskurv__MMColParam, "'", "''") + " AND VinID = IDvin    GROUP BY VinID  ORDER BY Overskrift ASC"
rsIndkoebskurv.CursorType = 0
rsIndkoebskurv.CursorLocation = 2
rsIndkoebskurv.LockType = 1
rsIndkoebskurv.Open()

rsIndkoebskurv_numRows = 0
%>