脳みそに入れたくないから、ここでメモ帳をしているだけ…
connect.CursorLocation = 3 'クライアントカーソルにする Set rs = execQuery(cn, sql, , adOpenKeyset, adLockOptimistic) debug.print rs.RecordCount