Visual Basic - Ayuda urgente, por favor

Tengo un programa en VB bastante desarrollado, pero todavía no esta acabado, el problema es el siguiente.
la BD Acces contiene ya un total de 3500 registros y el programa al ejecutar la siguiente instrucción me da el error, “Espacio de pila insuficiente” y solo llega al registro 1608.

Function SumarHorasObra()
'On Error Resume Next
If Not tabla21.EOF Then
N = tabla21.Fields("LINEA")
If mes = Month(tabla21.Fields("fecha")) And año = Year(tabla21.Fields("fecha")) Then
HORASOBRA = HORASOBRA + tabla21.Fields("cantidad")
End If
tabla21.MoveNext
SumarHorasObra
End If


End Function

perdon la dirección de correo tiene un error.

es la siguiente: [email protected]

Creo que lo mejor es que uses un Do while es mas efeciente
Do while Not tabla21.EOF
N = tabla21.Fields("LINEA")
If mes = Month(tabla21.Fields("fecha")) And año = Year tabla21.Fields ("fecha")) Then
HORASOBRA = HORASOBRA + tabla21.Fields("cantidad")
End If
tabla21.MoveNext

Muchas gracias por tu ayuda, lo he probado y me funciona

Estoy de verdad muy agradecido.