Cuadro lista a subformulario

Hola, buenas tardes!

He probado y escrito miles de códigos (literal) y se me acabaron las ideas, quizas sea simple y yo me la complico.

Tengo un cuadro lista donde están todos los productos en existencia, con un filtro que anda bastante bien, lo que deseo en este caso es que al hacerle doble click al producto deseado me lo inserte en otro formulario de venta rápida, en realidad en el subformulario que es continuo, obviamente sin reemplazarlo en caso que ya haya elegido otro, Las complicaciones que he tenido con cada código creado, sinceramente me parece algo facil pero la estoy haciendo dificil creo, los problemas que he tenido son:

1) Carga los datos pero al no colocarle el Id automaticamente no se muestran en el Subform, si en la tabla pero sin su Id correspondiente.

2) Me abre una copia de subform en una forma individual, tampoco carga el Id, no me sirve

3) Me carga los datos sin el Id y crea 4 campos vacios entre cada uno.

Y asi varios problemas mas.

EDITO: Cabe aclarar que los dos formularios están abiertos al momento de ejecutar el codigo

Ya no se me ocurre mas nada, alguien sabe alguna forma de hacer esto??

Saludos

Hola Xavi, este es uno de los codigos que pense que funcionaria pero no!

Private Sub Lista1_DblClick(Cancel As Integer)
    Dim Id As Long
    Dim producto As String
    Dim Precio As Double
    
    ' Obtener los valores de los campos de la fila seleccionada en la lista
   
    Id = CLng(Me.Lista1.Column(0))
    producto = Me.Lista1.Column(1)
    Precio = Me.Lista1.Column(4)
    
    ' Abrir el subformulario
    DoCmd.OpenForm "VentaRapidaSub", acNormal, , , acFormAdd, acWindowNormal
    
    ' Agregar un nuevo registro en el subformulario
    Forms!VentaRapida!VentaRapidaSub.Form.Recordset.AddNew
   
    ' Asignar los valores a los campos del nuevo registro
    Forms!VentaRapida!VentaRapidaSub.Form.Recordset.Fields("Codigo").Value = Id
    Forms!VentaRapida!VentaRapidaSub.Form.Recordset.Fields("Producto").Value = producto
    Forms!VentaRapida!VentaRapidaSub.Form.Recordset.Fields("Precio").Value = Precio
    
    ' Guardar el registro y refrescar el subformulario
    Forms!VentaRapida!VentaRapidaSub.Form.Recordset.Update
    Forms!VentaRapida!VentaRapidaSub.Form.Requery

End Sub

El formulario a donde deben ir los datos se llama "VentaRapida" y el subform "VentaRapidaSub"

Saludos

En el caso de que necesites pasar más de un valor, los mandas con un separador y en el destino obtienes los valores con split.

Gracias, ya se puede cerrar el Hilo.

Saludos