VBA ADOの更新で一部項目が更新されない

質問

どうしても分からないので何方か教えてください。
下記のようなソースでＤＢを更新しています。
Dim cnn1 As New ADODB.Connection
Dim Rs As New ADODB.Recordset
cnn1.ConnectionString = ConStr
cnn1.Open

Rs.Open "SELECT * FROM aaa WHERE key = '" & inno & "'", cnn1, adOpenDynamic, adLockOptimistic

With Rs
.Fields("kdate") = Me.契約日
.Fields("bdate") = Me.備考日
.Fields("cdate") = Me.クリア日
.update
.close
end with
ところが、一部項目だけが更新されないことがあるのです。
全部が更新されないのなら、なんとなく分かるような気がするのですが
一項目だけ更新されないのです。

どんな原因が考えられるでしょうか？
何方かお助けください。
お願いします。

回答No.2

liberty533

『Me.契約日』の項目だけなら、『MsgBox("")』等で内容を掘り下げて
行ったらどうですか？

お礼

ご助言ありがとうございます。
試してみたいと思います。
ありがとうございました。

回答No.1

KenKen_SP

> 一項目だけ更新されないのです。

どの項目でしょうか？

> .Fields("kdate") = Me.契約日

回答するには、コントロールの種類や使用 DB、およびフィールドの型など
の情報が不足しているように思います。補足してみては？

補足

仰るとおりです。
申し訳ございませんでした。

DBはMSDE2000 VBAはAccess2000のものです。
Accessのテキストボックスの内容をnvarcharまたはntextに書込み・更新しています。（どちらの項目でも更新抜けが発生しています。）

更新されることもあるのですが、たまに更新の抜けが出る状態です。
エラーでも返ってくれば良いのですが、返ってきていません。

このような情報でどうでしょうか？
お願いいたします。