[Resolvido]Abrir fomulário continuo e adicionar 25 linhas para registros!

      Dim rst As ADODB.Recordset
      Dim lngID As Long
      Dim i As Variant

      'armazena a chave-primária da tabela-base do form principal
      lngID = Me.CampoID
      Set rst = New ADODB.Recordset  'abre a tabela
      With rst
          .ActiveConnection = CurrentProject.Connection
          .CursorType = adOpenForwardOnly
          .LockType = adLockOptimistic
          .Source = "NomeTabela"  'tabela-base do subform
          .Open
              For i = 1 To 25  'adiciona os 25 registros
                  .AddNew
                   'nome do campo na tab-filho que é relacionado com o CampoID da tab-pai
                  .Fields("CampoIDfilho") = lngID  
                  .Fields("CampoNúmero") = i
                  .Update
              Next i
          .Close
      End With
      Set rst = Nothing  'libera memória

Private Sub Form_Load()
Dim X As Integer
Dim Rs As DAO.Recordset
    X = 0
    For X = 1 To 25

    Set Rs = CurrentDb.OpenRecordset("TbTeste", dbOpenDynaset)
    Rs.AddNew
    Rs.Update
    Rs.Close
    Next X
Me.Requery
Set Rs = Nothing
End Sub