思い出した、rs.recordcountは

Rs.recordcountは件数が多いと遅くてイライラした記憶が。

Dim i as long,MyCount as long
略
rs.movefirst
i=1
do until rs.eof
rs.movenext
i=i+1
Loop
MyCount=i

コードが長くなるけどこちらが速かったような