Visual Basic - URGENTE!!! bucle que chupa demasiados recursos

Buenas
Mi problema es que tengo un bucle de lectura que se lee una tabla de access y graba registro a registro en otra tabla de access, este bucle de tipo "WHILE datacontrol.RECORDSET.EOF=False" con solo 100 registros, me bloquea el programa y me chupa el 100% del procesador. ¿Hay alguna manera de hacerlo sin que me machaque los recursos de la maquina?

Gracias.

Tenes que usar la sentencia SQL

INSERT * INTO TablaDestino FROM TablaOrigen

Este ejemplo selecciona todos los registros de una tabla Nuevos Clientes y los agrega a la tabla Clientes. Cuando no se designan columnas individuales, los nombres de columna de la tabla SELECT deben coincidir exactamente con los de la tabla INSERT INTO.

Sub InsertIntoX1()

Dim dbs As Database

' Modifique esta línea para incluir la ruta de
' acceso a la base de datos Neptuno en su equipo.
Set dbs = OpenDatabase("Neptuno.mdb")

' selecciona todos los registros de la tabla Nuevos
' Clientes y los agrega a la tabla Clientes.
dbs.Execute " INSERT INTO Clientes " _
& "SELECT * " _
& "FROM [Nuevos Clientes];"

dbs.Close

End Sub

Copyright (c) 1996 Microsoft Corporation
Ejemplo sacado de la ayuda del visual basic