説明不足がありました。Microsoft DAO3.6を使っています。また、 .Fields(n) = LeftByte(.Fields...の部分は、 .Fields(n) = 0などとしても同じです。よろしくお願いします。