なんでだろ?テストデータが1レコード登録してあるので、RecordCount=1になるはずなのに...
Private Sub ADOtest() Dim rs as ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "T_テスト", CurrentProject.Connection, adOpenDynamic, adLockOptimistic MsgBox rs.RecordCount '←ここで「-1」 rs.Close Set rs = Nothing End Sub |
もしかして、
「T_テスト」はリンクテーブル。
上記コードは標準モジュールに書いている。
けど、それが原因かなぁ。
まさかなぁ...