Access VBA でADOレコードセットを自由に作る方法

下記のURLが参考

http://www.geocities.jp/cbc_vbnet/ADO/append.html

なお、サブフォームのレコードセットにセットするためには、
rs.LockType = adLockOptimistic
というように、レコードセットをOpenする前にロックを
かけなければならない。