Evet arkadaşlar sizlerinde yazdığı birkaç örnekten esinlenerek otomatik silmeyi de yaptım

Hepimizin ellerine sağlık

Private Sub Command5_Click()
Dim ctl As Control
Dim frm As Form

DoCmd.OpenForm "Form2", acDesign
Set frm = Forms!Form2

For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
For i = 1 To ctl
DeleteControl frm.Name, "Mytextbox" & i
Next i
End If
Next

DoCmd.Close acForm, "Form2", acSaveYes

DoCmd.OpenForm "Form2", acNormal
End Sub