Grabar datos de una tabla a otra

Dario
20 de Octubre del 2003
Hola.
Soy estudiante de primer ciclo de programacion y tengo un proyecto al que quiero grabar los resultados de una consulta a una tabla. les envio el codigo que he realizado:

Private Sub consulta()

SQL = SQL + "select * from arancel"
SQL = SQL + " where aduana LIKE '" & txt_aduana1 & "*' "
SQL = SQL + " and aduana like '" & txt_aduana2 & "*' "
SQL = SQL + " AND importador like '" & txt_importador1 & "*' "
SQL = SQL + " and importador like '" & txt_importador2 & "*' "
SQL = SQL + " AND remitente LIKE '" & txt_proveedor1 & "*' "
SQL = SQL + " and remitente like '" & txt_proveedor2 & "*' "
SQL = SQL + " AND mercaderia LIKE '" & txt_producto1 & "*' "
SQL = SQL + " and mercaderia like '" & txt_producto2 & "*' "
SQL = SQL + " AND partida LIKE '" & txt_partida1 & "*' "
SQL = SQL + " and partida like '" & txt_partida2 & "*' "
SQL = SQL + " order by ' & ordena & ' ;"

Set rsp = db.OpenRecordset(SQL)
Set res = db.OpenRecordset("RESULTA", dbOpenDynaset)

Set res = db.OpenRecordset(SQL)
Set dtc_items.Recordset = rsp
hasta este parte no tengo problemas
el problema redica en que el resultado de rsp o res
lo deseo grabar en dtc_query la cual es una tabla de consultas; no me acepta las instrucciones de sql (delete o insert) ambas son importantes una es para limpiar la tabla y la otra es para agregar los datos.

uso DAO especificando la ruta, soy un novato en esto

Set dtc_query.Recordset = res
'Set dtc_query.UpdateRecord = res


End Sub

este es un proyecto que nos sugirieron
Por favor me pueden enviar un codigo para completar este proceso lo mas antes posible.
Gracias.