Visual Basic - Insertar registro en otra tabla

Hola a todos.

Estoy aburrido de probar distinto código para insertar un registro de una tabla en otra tabla

Quiero copiar un registro de la tabla préstamos en la de histórico y luego borrarlo de préstamos.

'Baja del Préstamo y copiado a la tabla de Histórico.

Baja$ = "INSERT INTO Historico SELECT * FROM Prestamo WHERE NumLibro = " & Val(Trim$(TxtDevol.Text))

cn.Execute Baja$

Baja$ = "Delete from Prestamo Where numLibro = " & Val(Trim$(TxtDevol.Text))

cn.Execute Baja$

Utilizo ADO desde código.

Un saludo.