Visual Basic - Sentencia SQL INSERT 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

Te falta toda la sentencia de Apertura y asignacion al recodset, sin esas sentencias, no podes hacer un refresh.

Si esto es un paso anterior, te recomiendo que el refresh lo hagas despues de ejecutar el insert intro.

Saludos!!