ADO Recordset で RecordCount プロパティが -1 を返す場合

   

参照設定に「Microsoft Active Data Object 2.0 Library」追加

また、デフォルトが以下なので、変更する。

rs.CursorLocation = adUseServer(デフォルト)

↓↓↓↓↓↓変更 ↓↓↓↓↓↓

rs.CursorLocation = adUseClient

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient <— これを指定

※DAOのrecordcountで件数が取れないときはこちらを参照

 - AccessVBA開発