Visual Basic - Sentencia SQL "INSER INTO" urgente porfavor

Hola programadores tengo este problema que no se que es... me marca error cada que quiero pasar el registro de una tabla a otra.y dice que el objeto esta cerrado... QUE PASA?? al llegar al ado_libros.refres es donde me marca el error

ado_HistorialL.RecordSource = "select * from THistorialL"
ado_HistorialL.Refresh

ado_libros.RecordSource = "INSERT INTO THistorialL SELECT TLibros.* FROM TLibros where no_adquisicion = '" & _
Trim(txtna.Text) & "'"
ado_libros.Refresh

SI TUVIERAN ALGUN CODIGO QUE ME PASEN DONDE MUESTRA COMO PASAR LOS REGISTROS O UN SOLO REGISTRO DE UNA TABLA A OTRA TABLA FAVOR DE MANDARLO SE LOS AGRADECERIA MUCHISIMO.... GRACIAS

Ejecutalo con un Command 'comand.execute sentencia' o con la conexion 'conexion.execute sentencia'
Despues recuperas el recordset con una consulta select

Mira, para comenzar que tipo de bases de datos estas usando, pues si es MySQL, dependiendo de la version, es posible que no puedas hacer el Insert into con select en la misma sentencia.