Visual Basic - Copiar y Pegar Tablas!!!

Buenas, lo que deseo es copiar los registros que se quedan en una consulta(como en una tabla virtual) y pegarlos en una tabla fisica que contiene los mismos campos que los de la consulta y despues poderlos borrar despues de haberlos usado, todo esto con codigo en VB6.

El gestor de datos que utilizo es Access de Office 2003

Agradeceria al que me pudiera ayudar.

Hola, Papo!!

Puedes hacer esto

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
cn.ConnectionString = "provider=sqloledb;server=.;database=tu_bd;uid=sa"
cn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "insert into tabla1 (campo1, campo2......) select campo1, campo2........ from consulta
", cn

con esa consulta ya puedes hacer lo que quieres.

Espero te ayude.

Saludos!!

Cualquier otra duda escribeme.

Gracias, lo voy a probar y a tomar en cuenta tu consejo.

Saludos.