Vale!!! Pues a ver cómo te las ingenias para trabajarte una "bandera" que te controle esos detallitos...
Pudieras sustituir la cuestión con algo así:
Código:
Dim n As Integer, lNoVale as Booleam
For n = 0 to NúmerodeBoxes - 1
If IsEmpty(Text1(n).Text) Then lNovale = True: Exit For
next
If lNovale then Exit Sub
Data1.Recordset.MoveLast
Data1.Recordset.Delete