Hi, I'm really new to VBA but obviously that way is doubling the amount of records you have. Have you tried using a DCOUNT()?
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaac11/html/acfctDCount_HV05187157.asp
Has a complete definition of it. I just tried it on my...