思い出した、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

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

レコードセット

vbaからレコードセット取る時カーソルタイプはdynamicが多いのだが
件数rs.recordcountは取得できない。
カーソルタイプのおさらい
dynamicは全機能、もちろんaddnew、delete、更新できる
keysetもだいたい全機能 ただし他のユーザーの削除、追加は見えない、
staticは他のユーザーの追加、更新削除は見えない、追加更新削除できない、移動は自由
forwardonlyもstatic同様だが移動がmovenextのみ
件数取得はstaticとkeysetで可能
adopenkeyset,adlockoptimistic でだいたいOKなのかな