Hola amg39,
entiendo que estás trabajando en access y programando en VB, ¿correcto?. Deberías revisar
Cita: Dim totalacc As Integer = 0
por
Cita: Dim totalacc As Integer
totalacc = 0
y también mostrarnos
en qué punto le asignas a totalacc un valor (a parte de en la declaración), porque según está y con lo que veo diría que totalacc está mostrando basura...