Access - Como Juntar dos Tablas mediante consulta

Public Function Convierte()

Dim T_Tabla As DAO.Recordset, Texto_Fin As String, T_Control As Long

'se presupone la existencia de una tabla  (T_Destino) que es copia fiel (sin datos) de la tabla ingredientes

'los campos de tipo autonumerico se convertiran a tipo Long (en la copia) para conservar ese numero, no afecta al dato ni su utilidad

'.....

' limpiamos la tabla (se presupone que su vida y funcionalidad es temporal)

CurrentDb.Execute "Delete * From T_Destino"

'asignamos origen al recorset

Set T_Tabla = CurrentDb.OpenRecordset("Select * From Ingredientes Order By ID", , dbReadOnly)

'lo aplicamos por defecto

With T_Tabla

'si hay registros, 'agitamos' el recordset, si no los hay salimos

If .RecordCount <> 0 Then .MoveLast: .MoveFirst Else Exit Function

'inicializamos el testigo

T_Control = !Codigo

'comenzamos un bucle que recorrera todos los registros

Do Until .EOF

'verificamos si el caodigo es el mismo que el memorizado

If !Codigo = T_Control Then

    'lo es, verificamos si la cadena de texto tiene contenido

    'si lo tiene le añadimos el separador

    If Texto_Fin <> "" Then Texto_Fin = Texto_Fin & ", "

    'concatenamos el valor

    Texto_Fin = Texto_Fin & !Ingredientes

    Else

    'es un nuevo codigo, lo memorizamos

    T_Control = !Codigo

    ' y retrocedemos al registro anterior para tomar sus datos

    .MovePrevious

    'copiamos los valores a la nueva tabla pero modificando el campo ingredientes

    CurrentDb.Execute "Insert into T_Destino (ID, Codigo, Linea, Ingredientes, mgCapsula, especficaciones, Porcentaje, Gramos, Calorias, Especificaci) Values (" & !id & ", " & !Codigo & ", " & !Linea & ", '" & Texto_Fin & "', " & !mgCapsula & ", '" & !especficaciones & "', " & !Porcentaje & ", " & !Gramos & ", " & !Calorias & ", '" & !Especificaci & "')"

    'limpiamos la variable de texto para preparala para el siguiente registro

    Texto_Fin = ""

    End If

'nos desplazamos al siguiente registro

.MoveNext

Loop

'en este punto no hay mas registros, asi que retrocedemos uno (vamos al ultimo) para copiar sus valores

.MovePrevious

' y lo insertamos tambien

CurrentDb.Execute "Insert into T_Destino (ID, Codigo, Linea, Ingredientes, mgCapsula, especficaciones, Porcentaje, Gramos, Calorias, Especificaci) Values (" & !id & ", " & !Codigo & ", " & !Linea & ", '" & Texto_Fin & "', " & !mgCapsula & ", '" & !especficaciones & "', " & !Porcentaje & ", " & !Gramos & ", " & !Calorias & ", '" & !Especificaci & "')"'cerramos la tabla

.Close

'eliminamos la asignacion por defecto

End With

End Function