Duda con Benditas Comillas

[Acostag]

Hola amigos... tengo este codigo.. que al momento de ejecutarlo.. me marca este Error Se requiere un objeto: Line 23''

<%
response.buffer=true
response.clear
response.expires=1000
%>
<CENTER>
<%=request.form("Mes")%>

<%
Response.Buffer = true
Dim miconexion, mirecordset, micomando, total, cantidad
Set miconexion = Server.CreateObject("ADODB.Connection")
miconexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("/Benavides/DB/Benavides.mdb")
Set micomando = Server.CreateObject("adodb.command")
micomando.ActiveConnection = miconexion

micomando.CommandText ="Select Responsable, Count(*) As Cantidad from Captura_Boletines where Meses = '" & Request("Mes") &"' group by Responsable"
Set mirecordset =micomando.Execute
While Not mirecordset.EOF

esta es la linea 23
do while not rs.eof
Total = Total + rs("cantidad")
response.write rs("Responsable")& ": " & Rs("cantidad")
response.write "<br>"
rs.movenext
loop
response.write "Total: " & Total
%>

<%
mirecordset.MoveNext
Wend
mirecordset.Close
Set mirecordset = Nothing
miconexion.Close
Set miconexion = Nothing
%>

alguien puede ayudarme y explicarme por que.. ???

Saludos
Luis.R.Acosta