Desbordamiento

Me da el siguiente error

Error de Microsoft VBScript en tiempo de ejecución error '800a0006'
Debordamiento

al hacer una simple suma

lCont = lCont + 1

Puse un response.write antes de esta línea y lCont es igual a 0. El caso es
que el código funcionaba hasta modificar los datos (no la estructura) de una
tabla en una base en Access. El código donde falla es:

<%lCont = 0
Do Until oRSresp.EOF = true
lResto = lCont Mod 5
Select Case lResto
Case 0
sColor = "blue"
sImg = "enc-img\azul.gif"
Case 1
sColor = "red"
sImg = "enc-imgojo.gif"
Case 2
sColor = "green"
sImg = "enc-img\verde.gif"
Case 3
sColor = "maroon"
sImg = "enc-img\burdeos.gif"
Case 4
sColor = "#FF8000"
sImg = "enc-imgaranja.gif"
End Select
Response.Write lCont
lCont = lCont + 1
lPorc = Round((oRSresp(3) / lTotalVotos) * 100, 0)
%>
<td align="center" width="<%=lCelda%>%" valign="top">
<table width="100%" bgcolor="<%=sColor%>">
<tr>
<td valign="top">
<p><font size="2" color="white"><input
type="radio"
name="votos" value="<%=oRSresp(0)%>"><b>
<%=oRSresp(2)%></b></font></p>
</td>
</tr>
</table>
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td valign="bottom" align="center" height="150">
<p><br>
</p>
<p><img border="0" src="<%=sImg%>" width="20"
height="<%=lPorc%>" align="baseline"><br>
<font size="2"><b><%=lPorc%>%</b></font><br>
<font
size="2">(<%=FormatNumber(oRSresp(3),0,,,-2)%>)</font></p>
</td>
</tr>
</table>
</td>
<%oRSresp.MoveNext
Loop%>

Como veis, se trata de recorrer los registros de un recorset y elegir una
entre cinco imagenes según el resultado de la operación lResto = lCont Mod
5.
No entiendo porqué el contenido de la base puede afectar a esas
instrucciones, que son puras operaciones matemáticas.

Carlos V