Autocompletar segun producto

Dim txtFiltro As String

txtFiltro = "IdProducto = " & Me!Improducto

Me!Producto = DLookup("NombreProducto", "Productos", txtFiltro)
Me!IVA1 = DLookup("IVA", "Productos", txtFiltro)
Me!costo2 = DLookup("costo", "Productos", txtFiltro)
Me!precio_venta = DLookup(precio, "Productos", txtFiltro)

Tengo este codigo para seleccionar mis productos a vender a travez de
un cuadro combinado desde la tabla "productos" a la tanla
"detalle_de_pedido", la cuestion es que tengo que agregar productos
que contienen otros productos (paquete de promocion) cree una tabla
mas (promocion) donde puse:

Tabla PROMOCION
Paquetes idproducto

Paquete1 125
Paquete1 132<codigo de la tabla productos
Paquete2 122
Paquete2 124

Al seleccionar un paquete tiene que funcionar como siempre y abajo
incluir abajo los productos enlistados en la tabla promocion
correspondientes al paquete seleccionado.

ejemplo
detalle_de pedido
cod producto precio_venta iva
200 paqute1 35 21
125 arroz 0 0
132 aceite 0 0

Si hay alguna forma mejor de logara el cometido escucho propuestas
Graaaaciasss
hugo