Balu:
Usa dos bases de datos. Una la que tenés y otra que contenga una tabla con la misma estructura que querés copiar. Luego recorres tu tabla en un bucle y pasás los datos a la otra: Algo así
dim k as long
With rdsOriginal 'Recordset de tu tabla
'Llena el recordset
.Movelast
.MoveFirst
For K=1 to .RecordCount
rdsNackIp:AddNew
rdsNackIp.Fields("Campo1").Value=.Fields("Campo1").Value
rdsNackIp.Fields("Campo2").Value=.Fields("Campo2").Value
rdsNackIp.Fields("Campo3").Value=.Fields("Campo3").Value
rdsNackIp.Update
Next k
end with
Saludos Ruri
