Visual Basic - Problemas con bucles de lectura

Buenas
Mi problema es que tengo un bucle de lectura que se lee una table 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 la maquina?

Gracias.

Has intentado a traves de la definicion de un recordset?
Creo que es más rápido que un data.

Saludos.

Este ejemplo selecciona todos los registros de una tabla Nuevos Clientes y los agrega a la tabla Clientes. Cuando no se designan columnas individuales, la 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

Sacado del help de VB