PostgreSQL15 書き込みが出来ない

Access VBA で PostgreSQL15 に ADO 接続しています。
データベースに書き込みが出来ません。

エラーメッセージ

実行時エラー　'2147217887(80040e21)':
複数ステップの OLE DB の操作でエラーが発生しました。
各 OLE DB の状態の値を確認してください。
作業は終了しませんでした。

該当のソースコード

VBA
1Public ADO_TB As New ADODB.Connection
2Dim SE_SET   As String
3Dim SQL As String
4Dim TB As New ADODB.Recordset
5
6    SE_SET = ""
7    SE_SET = SE_SET & "Provider=MSDASQL;"
8    SE_SET = SE_SET & "DRIVER=PostgreSQL Unicode;"
9    SE_SET = SE_SET & "SERVER=localhost;"
10    SE_SET = SE_SET & "DATABASE=test;"
11    SE_SET = SE_SET & "UID=postgres;"
12    SE_SET = SE_SET & "PWD=postgre"
13    Set ADO_TB = New ADODB.Connection
14    ADO_TB.CommandTimeout = 300
15    ADO_TB.Open SE_SET
16
17        Set TB = New ADODB.Recordset
18        SQL = ""
19        SQL = SQL & "SELECT tb_test.* "
20        SQL = SQL & "FROM tb_test "
21        SQL = SQL & "WHERE (tb_test.number = '12345')"
22        TB.Open SQL, ADO_TB, adOpenDynamic, adLockOptimistic
23            If TB.EOF = True Then
24                TB.AddNew
25            End If
26                TB!number = "12345"
27                TB!namae = Me!namae
28                TB!tel = Me!tel
29            TB.Update
30        TB.Close
31        Set TB = Nothing
32

試したこと

TB!number = "12345"
の所でエラーが出ます。
以前はPostgreSQL9.5を使用していましたが、問題なく動作していました。
If TB.EOF = True Then
TB.AddNew
End If
ここでは、TB.EOFはTrueでした。
しかし、エラーが出た後に確認するとTB.EOFはFalseになっていました。
データベースからの呼出しは出来ています。
どなたか、お力添えよろしくお願いします。

補足情報（FW/ツールのバージョンなど）

Windows11
Access2019
PostgreSQL15

YT0014

2023/03/22 08:56

「カーソルの種類によっては、新規レコードにアクセスするために、 Requery メソッドを呼び出すことが必要になる場合があります。」 https://learn.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/addnew-method-ado とのことなので、試してみることをお勧めします。

sake

2023/03/22 18:21

コメントありがとうございました。 TB.Openの後にTB.Requeryを実行しましたが駄目でした。 PostgreSQL9.5を長年使ってきました。今までは何の問題もなく使用出来ていました。 PostgreSQL15に変更した途端このようなエラーが出ました。インターネットで色々調べましたが、PostgreSQLでの新規データの追加は殆どが INSERT コマンドの例ですが、AddNewコマンドは使えないのでしょうか？

logres_Fan

2023/03/22 22:19

テーブルは、number、namae、telで全てですか？その他に何か項目がありますか？

sake

2023/03/23 00:45

質問の文章が長くなるので省略しましたが、全部で50項目ほどあります。

logres_Fan

2023/03/23 01:35

number、namae、telを含む全ての項目に値を代入している。オートナンバーを除き、記載漏れは無い。代入する値は、値の範囲を逸脱していない。Nullがあれば他の値に。0があれば他の値に。よくわからないし、怪しいところもありますが、この辺りを確認したり、変更したりして改善されますか？改善されなければ、力及ばずです。すみません。

sake

2023/03/23 02:04

記載漏れに対しての対策はしています。 PostgreSQL9.5では問題なく動作していたプログラムです。 PC についてですが、質問ｎ補足情報にWindows11としていましたが、Windows10でした。 Windows11のPCでは問題なく動作しました。

YT0014

2023/03/23 03:31

PostgreSQL本体とやODBCなど、マイナーバージョンも含めて、Win10とWin11で差異がないか、確認されることをお勧めします。

sake

2023/03/23 04:07

YT0014様へ適切なアドバイスありがとうございました。 ODBCドライバの問題でした。最新のODBCドライバをインストールしたら問題が解決しました。