ID en vez de contenido

Hola a todos, tengo un pequeño problema que habia solucionado hace ya
algún tiempo pero ahora no me acuerdo y me ha vuelto a salir (seguro
que la solución es muy sencilla).
Bueno voy al grano . tengo un campo que tiene transportistas con
todo los datos sobre ellos y cuando un transportista hace una carga
tengo una casilla de verificación donde se marca cuando ha terminado
la carga para copiarla a otros campos del formulario llamados
facturación y cargas realizadas. Pues bueno lo copia todo bien excepto
el nombre del transportista donde me sale el id del transportista en
vez del nombre de tal.
En la casilla de verificación tengo este codigo de copia...
strSQL = "INSERT INTO CARGASEFECTUADAS
(IdCARGADO,codigoempresa,CLIENTE,FECHACARGA,FECHADESCARGA,REMITENTE,DESTINATARIO,CODIGOINTERNO,EXPORT,IMPORT,NACIONAL,CARGACOMPLETA,NBULTOS,VOLUMEN,ML,MERCANCIA,COBRAMOS,TRANSPORTISTA,MATRICULA,PAGAMOS,PESO,codigoremitente,codigodestinatario)
SELECT
cargasdisponibles.idcargado,cargasdisponibles.codigoempresa,cargasdisponibles.CLIENTE,cargasdisponibles.FECHACARGA,cargasdisponibles.FECHADESCARGA,cargasdisponibles.REMITENTE,cargasdisponibles.DESTINATARIO,cargasdisponibles.CODIGOINTERNO,cargasdisponibles.export,cargasdisponibles.import,cargasdisponibles.nacional,cargasdisponibles.cargacompleta,cargasdisponibles.nbultos,cargasdisponibles.volumen,cargasdisponibles.ml,cargasdisponibles.MERCANCIA,cargasdisponibles.COBRAMOS,cargasdisponibles.TRANSPORTISTA,cargasdisponibles.MATRICULA,cargasdisponibles.PAGAMOS,cargasdisponibles.PESO,cargasdisponibles.codigoremitente,cargasdisponibles.codigodestinatario
FROM cargasdisponibles WHERE
cargasdisponibles.idcargado=idcargado.Value"
DoCmd.RunSQL strSQL
strSQL2 = "INSERT INTO facturacion
(id,codigoempresa,EMPRESA,FECHASALIDA,FECHALLEGADA,REMITENTE,DESTINATARIO,CODIGOINTERNO,EXPORT,IMPORT,NACIONAL,CARGACOMPLETA,NBULTOS,VOLUMEN,ML,MERCANCIA,COBRAMOS,TRANSPORTISTA,MATRICULA,PAGAMOS,PESO,total)
SELECT
cargasdisponibles.idcargado,cargasdisponibles.codigoempresa,cargasdisponibles.CLIENTE,cargasdisponibles.FECHACARGA,cargasdisponibles.FECHADESCARGA,cargasdisponibles.REMITENTE,cargasdisponibles.DESTINATARIO,cargasdisponibles.CODIGOINTERNO,cargasdisponibles.export,cargasdisponibles.import,cargasdisponibles.nacional,cargasdisponibles.cargacompleta,cargasdisponibles.nbultos,cargasdisponibles.volumen,cargasdisponibles.ml,cargasdisponibles.MERCANCIA,cargasdisponibles.COBRAMOS,cargasdisponibles.TRANSPORTISTA,cargasdisponibles.MATRICULA,cargasdisponibles.PAGAMOS,cargasdisponibles.PESO,cargasdisponibles.total
FROM cargasdisponibles WHERE
cargasdisponibles.idcargado=idcargado.Value"
DoCmd.RunSQL strSQL2
STRSQL3 = "DELETE
IdCARGADO,codigoempresa,CLIENTE,FECHACARGA,FECHADESCARGA,REMITENTE,DESTINATARIO,CODIGOINTERNO,MERCANCIA,COBRAMOS,TRANSPORTISTA,MATRICULA,PAGAMOS,PESO,OBSERVACIONES
FROM cargasdisponibles WHERE IdCARGADO=IdCARGADO.Value"
DoCmd.RunSQL STRSQL3
DoCmd.RunCommand acCmdSelectRecord

Como ya digo yo creo que el error no es del codigo sino a lo mejor de
la consulta pero la he revisado y todso esta correcto.

Gracías anticipadas y un saludo