Visual Basic - Que està mal aqui

Hola a todos

Tengo dos tablas: Obra_Detalles y Rubros_Detalles. En Rubros_Detalles quiero insertar
un nuevo campo (Cantidad1) y sus datos.
Los campos de Rubros_Detalles son: COS_DESCR, Rubro, Cantidad, Unidad, Costo, Total, Matmdo
Los campos de Obra_Detalles son: Rubro, Cantidad, Precio, Total, Unidad
Es el campo Cantidad de Obra_Detalles el que deseo insertar en el campo Cantidad1
en Rubros_Detalles

Esta instrucción funciona:
Set componentes = mydb.CreateQueryDef("", "INSERT INTO Rubros_Detalles (COS_DESCR, Unidad, Costo, Cantidad, Total, matmdo, Rubro ) IN '" & DataDocument.DatabaseName & "' " & _
"SELECT composicion.COS_DESCR, composicion.Unidad, composicion.Precio, composicion.Cantidad, composicion.Total, composicion.MatMDo, n3_rubros.rubro " & _
"FROM ((n1_Tipo_rubro INNER JOIN n2_categoria_rubro ON n1_Tipo_rubro.codigo_tipo_rubro = n2_categoria_rubro.codigo_Tipo_rubro) INNER JOIN n3_rubros ON n2_categoria_rubro.id = n3_rubros.id_categoria_rubro) INNER JOIN composicion ON n3_rubros.codigo_rubro = composicion.codigo_Rubro " & _
"WHERE (((n3_rubros.rubro)= '" & cboRubro & "') AND ((n2_categoria_rubro.nombre_categoria_rubro)='" & cboCaterubro & "') AND ((n1_Tipo_rubro.nombre_Tipo_rubro)= '" & cboTiporubro & "'))")

Esta instrucción no funciona:
Set componentes = mydb.CreateQueryDef("", "INSERT INTO Rubros_Detalles ( COS_DESCR, Unidad, Costo, Cantidad, Total, matmdo, Rubro, Cantidad1 ) IN '" & DataDocument.DatabaseName & "' " & _
"SELECT composicion.COS_DESCR, composicion.Unidad, compos