Error al hacer un INSERT INTO en una tabla con un SELECT de una consulta

Question

Tengo un módulo para inserta los datos de una consulta en una tabla. El nombre de las tablas se lo paso como parámetros. Origen son los datos de la consulta y Copia la tabla donde cargar el resultado de dicha consulta.

Module modCopiaTablas
Public Sub copiaTabla(ByVal copia As String, ByVal origen As String)
Try
If CuentaReg(copia) > 0 Then
Dim sql2 As String = "DELETE FROM " & copia
Dim cmd1 As New OleDbCommand(sql2, cn)
cmd1.ExecuteNonQuery()
End If
Dim sql1 As String = "INSERT INTO " & copia & " SELECT * From " & origen
Dim cmd As New OleDbCommand(sql1, cn)
cmd.ExecuteNonQuery()
Finally
close()
End Try
End Sub
End Module

Adjunto la consulta de "Origen" y la estructura de "Copia"
En la consulta el Campo "IdOrigen" lo suprimo de las dos tablas de la consulta.
Al ejecutar el módulo me da siempre error. ¿Puede ser por suprimir el PRIMARY KEY de la tabla principal?. 

Gracias y un saludo