Access - Error en codigo

Buenas, tengo el siguiente codigo en un form para que me recorra todos los registros y me ejecute ciertas ordenes, pero me da error.

Dim registrostotales as integer
Dim registro actual as integer
Dim formularioorigen as form

Set miformulario=formularioorigen
registrostotales=miformulario.recordsetClone.RecordCount
registroactual= .bookMark

if registroactual < registrostotales+1 then

acciones a realizar mientras no llege al ultimo registro

else
docmd.GotoRecord,, acFirst

end if