Docmd.RunSql "INSERT INTO [Tabla_Destino] SELECT [Tabla_Origen].* FROM [Tabla_Origen] WHERE ((([Tabla_Origen].[Campo_Adecuado])="Este_me_vale"));"