Formatar campo Money de BD SQL Server

[axy108]

Es este:

Código:

comando.Connection = conexion
comando.CommandText = "SELECT * FROM ANTICIPOS WHERE EMCLAVEEMPLEADO = '" & Session("clave") & "' ORDER BY ANFESOLICITUD"
Try
  conexion.Open()
  Dim dr As SqlClient.SqlDataReader
  dr = comando.ExecuteReader
  If dr.HasRows Then
    Response.Write("<table class=""principal""><tr><td class=""title""><span class=""tag"">Fecha de Solicitud</span></td><td class=""title""><span class=""tag"">Cantidad</span></td><td class=""title""><span class=""tag"">Estado</span></td><td class=""title""><span class=""tag"">Fecha de Pago</span></td></tr>")
    While (dr.Read)
      Response.Write("<tr><td class=""info"">")                                               Response.Write(dr(3).ToString().Substring(0, 10))
      Response.Write("</td>")
      Response.Write("<td class=""info"">")
      Response.Write("$ " & dr(2).ToString("N2"))
      Response.Write("</td>")
      Response.Write("<td class=""info""><span class=""miniMensaje"">")
      Select Case dr(9)
        Case 0
           Response.Write("Sin Autorizacion")
        Case 1
           Response.Write("Autorizado por Pagar")
        Case 2
           Response.Write("Autorizado Pagado")
        Case 3
           Response.Write("Autorizado Cobrado")
      End Select
      Response.Write("</span></td>")
      Response.Write("<td class=""info"">")                                                Response.Write(dr(5).ToString().Substring(0, 10))
      Response.Write("</td>")
      Response.Write("</tr>")
   End While
   Response.Write("</table>")
  Else
    Response.Write("Usted no ha solicitado ningun Anticipo")
  End If
Catch ex As Exception
  Response.Write(ex.Message)
Finally
  conexion.Close()
End Try

SALUDOS