Visual Basic - URGENTE!!! No hallo el problema

Hola amigos. Una amiga me a pedido que le ayuda a resolver un problema con un programa y como llevo tiempo sin tocar el Visual pues decido poner esta duda. Está desarrollando una aplicación MDI en la que debe imprimir unas etiquetas. La opción de imprimir está en la pantalla padre y debe imprimir las etiquetas con los datos de la información en la ventana hija.

Supongamos que debe imprimir 2 etiquetas llamadas etiqueta 1 y 2. Al dar a la opcion de menu imprimir una vez imprime la etiqueta 1, pero cuando desea imprimir despues la 2 vuelve a imprimir la 1. Cuando lo hace paso a paso funciona correctamente o bien cuando cierra la ventana y vuelve a abrirla.

Les paso el codigo que está en la opción del Menu:
"
Private Sub impact_Click(Index As Integer)
'carga la tabla de registro unico con el registro actual
Set base = Workspaces(0).OpenDatabase(App.Path & "\mvdistribuciones.MDB")
Set regactual = base.OpenRecordset("recibounico", dbOpenDynaset)
'comprueba si tienen algun registro y si es asi lo elimina
'para cargar el actual//esta tabla solo contiene un reg
While Not regactual.EOF
regactual.Delete
regactual.MoveNext
Wend
regactual.AddNew
regactual("num") = Str(Form1.Text1.Text)
regactual("localidad") = Form1.Combo1.Text
regactual("importe") = Str(Form1.Text3.Text)
'rs("fechaexp") = MaskEdBox1.Text
'rs("vencimiento") = MaskEdBox2.Text
regactual("fechaexp") = Form1.DTPicker1.Value
regactual("vencimiento") = Form1.DTPicker2.Value
regactual("domiciliacion") = Form1.Text6.Text
regactual("observaciones") = Form1.Text7.Text
regactual("datosnombre") = Form1.Text2.Text
regactual("nifnombre") = Form1.Text4.Text
regactual("poblacionnombre") = Form1.Text5.Text
regactual("ciudadnombre") = Form1.Text8.Text
regactual.Update

Unload DataEnvironment1
DataReport2.Refresh
DataReport2.Show

End Sub

"

Sinceramente, considero que existiría una manera mucho más sencilla de realizar este desarrollo sin utilizar Dataenvironment y sin usar un datareport

Considero que con Crystal Reports serìa mucho más sencillo o envia directamente a la impresora.

Si consideras continuar el desarrollo tal cual esta, considero, que deberìas colocar el procedimiento de impresiòn dentro de un mòdulo, el cual ademàs de recibir los paràmetros de impresión, reciba el parámetro de si es etiqueta 1 o 2, dependiendo del menù que lo invoca.