formatCurrency type mismatch.....

Jeg har følgende kode:

        While Not RS1.EOF
        SQL2=\"SELECT COUNT(*) AS antal FROM statistik WHERE reference=\'\" & RS1(\"reference\") & \"\'\"
        Set RS2=DBConnection.Execute(SQL2)
        SQL3=\"SELECT SUM(beloeb) AS omsaetning FROM ordre WHERE reference=\'\" & RS1(\"reference\") & \"\'\"
        Set RS3=DBConnection.Execute(SQL3)
        Response.Write \"<tr>\"   
        Response.Write \"<td>\"
        Response.Write \"<span class=\'koen\'>\" & RS1(\"reference\")
        Response.Write \"</td>\"
        Response.Write \"<td width=\'100\'>\"
        Response.Write \"<span class=\'vhead\'><div align=\'right\'>\" & RS3(\"omsaetning\")
        Response.Write \"</td>\"
        Response.Write \"<td width=\'100\'>\"
        Response.Write \"<span class=\'vhead\'><div align=\'right\'>\" & RS2(\"antal\")
        Response.Write \"</td>\"
        Response.Write \"<td width=\'100\'>\"
        *** Response.Write \"<span class=\'vhead\'><div align=\'right\'>\" & FormatCurrency(RS3(\"omsaetning\")/RS2(\"antal\"))
        Response.Write \"</td>\"
        Response.Write \"</tr>\"
        RS1.Movenext
        Wend

Jeg får følgende fejl:

Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'formatCurrency\'

/admin/user.asp, line 239 (Linien markeret med ***)

Fejlen opstår uanset om jeg anvender Round,Cint,Ccur eller FormatCurrency. Jeg gætter på, at det er noget med formatet af de tal jeg får fra COUNT og SUM, men hvordan kan jeg ændre dette?