[Resolvido]Gravar todos os dados de um sub-formulário

Olá, estou com um projeto que é para uma escola, onde eu já tenho uma turma com um código, e quero cadastrar novamente os dados da turma existente com outro código, gerando assim uma nova turma. Porém quando executo o código, ele só cadastro o primeiro registro do sub-formulário.

Podem me ajudar a gravar todos?

Desde já agradeço.

Código:

'CADASTRO DOS DADOS
   Dim rs As DAO.Recordset
    Set bancodados = CurrentDb() 'Abre Bando de Dados
    Set rs = bancodados.OpenRecordset("CadTurma", dbOpenDynaset) 'Abre a Tabela
    rs.AddNew 'Insere novo registro
   rs("Codturma") = Me.CODNOVO
   rs("Estudante") = Form_SUBCADTURMA.Estudante.Value
   rs.Update
   rs.MoveLast
   DoCmd.SetWarnings False
     rs.Close
  Set rs = Nothing


segue o link do projeto:
https://www.dropbox.com/s/h373cbe1764pmto/Projcad.rar?dl=0

teste

'faz a copia dos dados do subformulario
'usando access Avelino Sampaio
Dim rs As DAO.Recordset
Dim rsB As DAO.Recordset
'Abre a tabela que receber? os dados
Set rs = CurrentDb.OpenRecordset("CadTurma", dbOpenDynaset)
'carrega os dados do subformul?rio
Set rsB = SUBCADTURMA.Form.RecordsetClone
'Percorre os registros do subformul?rio um a um
Do While Not rsB.EOF
'Copia os dados do subformul?rio para a tabela
rs.AddNew
rs("Codturma") = Me.CODNOVO
rs("Estudante") = rsB!Estudante
rs.Update
'vai para o pr?ximo registro do subformul?rio
rsB.MoveNext
Loop
rs.Close
rsB.Close
Set rsB = Nothing
Set rs = Nothing
Set db = Nothing
MsgBox "Dados copiados...", vbInformation, "Duplica??o de Receituario"
'*******************************************
Me.SUBCADTURMA.Requery

Olá, muito obrigado meu amigo.
A primeira vez que executei deu certo, porém na segunda vez em diante, ele não cadastra mais.
Oque poderá ser ?

Olá, eu percebi, que toda vez que quiser cadastrar a turma em um novo código, eu tenho que fechar o formulário e abrir novamente, assim dá certo.
Seria assim então?

Sica a dica do Avelino que vai vai funcionar.

Perfeito!
Muito obrigado gente, por compartilhar este conhecimento.