While busquedaSQL.EOF <> true 'Mientras no pase más allá del último registro de la busqueda, esto se repite:

    tablaVacia.AddNew 'Agrega un nuevo registro en la tabla

         'Le pasas los datos a cada field respectivo
         tablaVacia.fields(0) = busquedaSQL.fields(0)
         tablaVacia.fields(1) = busquedaSQL.fields(1)
         ' ... y asi le haces por cada campo que tengas

    tablaVacia.Update 'Guarda el registro en la tabla

    busquedaSQL.MoveNext 'Se mueve al siguiente registro de la busqueda

Wend