Record count

Hvordan får jeg record Count på hvor mange der har svaret Ja/Nej?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application( "SQLPath" )
   
sql = "SELECT * FROM [APVLines]"
   
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3
   
if rs.bof then
    response.write "Ingen data"   
else
   
rs.movefirst
do while not rs.eof
   
   
response.write rs.Fields("Answer") & "<br>"

   
rs.movenext
loop

rs.close
set rs = nothing
conn.close
set conn = nothing
end if
%>

rs.Fields("Answer") har to mulige indhold enten Ja eller Nej, hvordan får jeg et Count på hvor mange der har svaret Ja og hvor mange har svaret Nej?