comando looping for..... criterio apos atingir o end

[brunocasado]

galera fiz um sisteminha de geraçao de nseries com for.. so que eu gostaria de ao atingir o end for ele executar um comando....

vo por meu codigo

For contador = 1 To Me.QDADE
Dim Form

DoCmd.OpenForm "nseries", acNormal
[Forms]![nseries]![forma].Value = (Nz(DLookup("[MaiorNr]", "GeraNSERIE"), 0) + 1)
[Forms]![nseries]![nserie].Value = Me.codprod & Format([Forms]![nseries]![forma], "0000")
Me.nserie.Value = Me.nserie & " " & [Forms]![nseries]![nserie].Value
DoCmd.GoToRecord , , acNewRec
Next contador
End If

depois de atingir o end(ou to) gostaria de fechar o formulario... como poderei estar fazendo isso?

[brunocasado]

consegui galera

fiz assim: adiconei uma variavel fim = 0 e no laco fui incrementando e criei um if quando o fim fosse igual a qdade(criterio TO) ele fecharia o formulario...