Problema com formatCurrency e com menu list

Problema com FormatCurrency

tenho esse select SELECT SUM(Valor) AS Total FROM tblLacamentos WHERE idCategoria = "& id &"

quando tendo um formatCurrency(rs("Total"),2) ele ta erro:

(0x800A000D)
Tipos incompatíveis: 'FormatCurrency'Já tentei converter com cdbl antes de tantar formatar porem o erro é esse:

(0x800A005E)
Uso inválido de Null: 'cdbl'
O que devo fazer?

Seria por causa do SUM? se for como formatar após somar?

Problema com menu list

tenho um menu list onde as opções vem de uma tabela so que quero que no menu, umas das opções venha selecionada de acordo com o registro de outra tabela, mas não esta ocorrendo.

O que deve ser?

<% do while not rsC.eof %>
<option value="<%= rsC("id")%>" <%If rsC("id") = CStr(rsL("idCategoria")) Then Response.Write("selected=""selected""") : Response.Write("")%>><%= rsC("categoria")%></option>
<% rsC.movenext
loop %>