Copiar datos de un listbox a formulario activo

Tengo mi BD, de biblioteca que al abrir el "formulario entrega" en el apartado de la peroso a quien se entrega el producto me abre un formulario de "búsqueda de personas "con sus datos mediante código VBA, dependiente de una tabla, esos datos aparecen en un cuadro de lista, que al hacer doble click en algún resultado de las lista hice que me copie los datos en el "formulario entrega", el inconveniente resulta ser que para lo mismo tengo para el "formulario recepción", por mi parte lo resolví, duplicando el formulario nusqueda, por ahora me funciona, ¿Esta Bien lo que Hice? O hay manera de que al solamente me copie los datos en el formulario activo, a fin de no andar duplicando formularios

Pongo el código utilizado actualmente

Busqueda de personas_entrega 

Private Sub cmdBuscar_Click()

If IsNull(txtBuscar.Value) Or txtBuscar.Value = "" Then

Lista.RowSource = "select DNI,  APELLIDO, NOMBRE from PERSONAS"

Else

Lista.RowSource = "select DNI,  APELLIDO, NOMBRE from PERSONAS WHERE dni & APELLIDO & NOMBRE LIKE'*" & txtBuscar & "*'"
End If
End Sub

Private Sub Lista_DblClick(Cancel As Integer)
DNI = Lista.Column(0)
APELLIDO = Lista.Column(1)
NOMBRE = Lista.Column(0)
'al hacer doble clic en el registro seleccionado lo importo al F_entrega
Forms!F_ENTREGA!txtOF_NLUP.Value = DNI
Forms!F_ENTREGA!txtjerarquia.Value = APELLIDO
Forms!F_ENTREGA!txtapellido.Value = NOMBRE

DoCmd.Close acForm, "F_BUSQUEDA"
End Sub

Nota: Previamente declare variables