スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
ExcelVBAでSharpointのリストから条件に一致するデータをシートへ出力して、その後にSharepointのリストの特定の列に完了したという値(できれば完了日)を更新したいのですが、うまくいかずに困っています。
ADODBで接続してデータの取得・出力はSELECT文でできましたが、UPDATEでのSharepointのリストへの更新ができません。
参照設定:Microsoft AxtiveX Data Objects 6.1 Library
OS:WindowsEnterprise
 
試したコードは以下になります。
Public Sub test()
 
    Dim cn As Object
    Dim rs As Object
     
    Dim ListName As String
    Dim UpdateQuery As String
    Dim i As Long
     
    On Error GoTo Err_testQuery
     
    'オブジェクトの設定
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
     
    Const SPO_URL = "http://mmna.Sharepoint.com/Sites/*********"
    Const SPO_LISTID = "{8b28af-******************-8df20305c}"
    ListName = "test_Purchase"
     
    cn.Open "Provider=Microsoft.ACE.OLEDB.16.0;WSS;IMEX=2;RetrieveIds=Yes;DATABASE=" & SPO_URL & ";LIST=" & SPO_LISTID & ";"
     
    'パターン1開始
    UpdateQuery = "UPDATE [" & SPO_LISTID & "] [PONo] = 'TEST' WHERE UnitCode ='KO'"
    'UpdateQuery = "UPDATE [" & ListName & "] [PONo] = 'TEST' WHERE UnitCode ='KO'"
    cn.Execute UpdateQuery
    'パターン1終了
     
　　'パターン2開始
    UpdateQuery = "SELECT * FROM[" & SPO_LISTID & "] WHERE UnitCode ='KO'"
    rs.Open UpdateQuery, cn, adOpenKeyset, adLockOptimistic
     
    If rs.EOF Then
        MsgBox "データ該当なし"
    Else
        For i = 0 To rs.Field.Count - 1
            Debug.Print rs.Field(i).Name & ":" & rs.Field(i).Value
         
        Next
       rs.Field("PONo").Value = "TEST"
         
    End If
    
    Set rs = Nothing
    'パターン2終了
     
    Set cn = Nothing
 
Exit Sub
 
'エラー処理
Err_testQuery:
    'エラーメッセージ
    MsgBox "エラーナンバー：" & Err.Number & vbCrLf & _
            "エラー内容：" & Err.Description & vbCrLf & _
            "エラーソース：" & Err.Source
    If cn.State = adStateOpen Then
        Set cn = Nothing
    End If
 
 
End Sub
 
---------エラーメッセージ---------
*パターン１の場合
エラーナンバー：-2147467259
エラー内容：適正する値が正しくないか、データの入力規則に違反しているため、このフィールドを更新できません。エラーを修正していやり直して下さい。
エラーソース:Microsoft Access Database Engine
 
*パターン2の場合
エラーナンバー：-3219
エラー内容：このコンテキストでは操作は許可されていません
エラーソース：ADODB.Recordset
-------------------------------
 
パターン１，パターン２どちらかをコメントアウトしてそれぞれ実行しましたが
パターン１はcn.Execute UpdateQueryの部分で落ちます。
パターン２はDebul.Printも問題なく、
rs.Field("PONo").Value = "TEST"の後もローカルウィンドウでValueに'TEST'値が設定されているのは確認できていますが、rs.Close時に落ちます。
rs.closeを省いてもリストに更新はできていません。
 
参照テーブルとなるリストID/リスト名ですが、リスト名だとうまくいかないのでリストIDで設定しています。
 
Sharepointでのリストへのアクセス許可はあるので、
直接値を書き込んで保存することはできますが、ExcelからだとSharepointリストへの編集ができないのか、ただのUPDATE文の書き方の問題なのか判断できないのでおしえていただきたいです。
（色々調べているとADODBでリストのデータを更新している記事を見かけるので、なぜ自分のができないのか不明です）
Sharepointリストは社内で扱っているリストになり、２つ違うリストで試したのですが、同じような感じでエラーでおちます。
 
できない場合はPowerAutomateでのデータ更新も検討していますが、ただVBAで行ったほうが処理速度が速いのでなるべくVBAでできればいいなと考えています。
またSharepointAPIというやり方もネット記事で見かけましたが、社内でツールをダウンロードするのに制限等あるのでADODBでできれば、、という感じです。
 
ご教授の程よろしくお願いします。
 

SharePoint に対しては判りかねますが
 
 
ローカルの xlsx ファイルに対してなら
 
パターン1　：　SQL UPDATE句 による データ更新
　SQL 構文 に問題があります。　SET句が必要
 
 
パターン2　：　レコードセット カーソルのあるレコードの更新
　「Close時に落ちる」と言うのが、何を表しているのか理解しかねますが
　　更新の為には、UPDATEメソッド が 必要
 
 
まずは、ローカルファイルに対しテストを行い SharePointファイルに対しテストを進めてはどうでしょう。

Suzu様
 
コメントありがとうございます。
 
パターン1　：　SQL UPDATE句 による データ更新
　SQL 構文 に問題があります。　SET句が必要
→こちらについて、質問のコードが間違っておりました。記述ミスですみません。
SET句は実際のコードには記述しておりましたがエラーで落ちます
UpdateQuery = "UPDATE [" & SPO_LISTID & "] SET [PONo] = 'TEST' WHERE UnitCode ='KO'"
 
パターン2　：　レコードセット カーソルのあるレコードの更新
　「Close時に落ちる」と言うのが、何を表しているのか理解しかねますが
　　更新の為には、UPDATEメソッド が 必要
 
→ こちらについて
     rs.Field("PONo").Value = "TEST"の後に
     rs.Update
を追記して実行したところ以下のエラーメッセージが表示されました（パターン1のエラーメッセージと同様）
 
エラーナンバー：-2147467259
エラー内容：適正する値が正しくないか、データの入力規則に違反しているため、このフィールドを更新できません。エラーを修正してやり直して下さい。
エラーソース:Microsoft Access Database Engine
 
 
一度ローカルファイルに対してUPDATEができるかを検討しています。取り急ぎ上記についてご連絡いたしました

掲示コードをよく見るとオブジェクトのメンバー(メソッド名、コレクション)について
いろいろ間違っている様ですが、エラーメッセージを見る限り
 
それらが問題では無さそうなので、それらはおいておくとして
 
 
rs.Fields("PONo").Value = "TEST"
rs.Update
 
"UPDATE [" & SPO_LISTID & "] SET [PONo] = 'TEST'
 
どちらでも
 
フィールド「PONo」に、文字 TEST に書き換える 際に
 

引用:
エラーナンバー：-2147467259
エラー内容：適正する値が正しくないか、データの入力規則に違反しているため、このフィールドを更新できません。エラーを修正してやり直して下さい。
エラーソース:Microsoft Access Database Engine

Suzu様
 
コメントありがとうございます。
返信が遅くなり申し訳ありません。
 
コードの記述ミス等すみません
（業務で使用するコードを直接コピペできないため、画面を照らし合わせながら記述をしており所々間違えておりご迷惑をおかけします）
 
ローカルファイルで行ったところうまくいきました。
 

引用:

PONo のデータ型 が、数値型として認識されているフィールドに、
文字列を入れようとしている事が考えられます。

引用:
ローカルファイルで行ったところうまくいきました。

引用:
コードを以下のように変更してみました(転記しましたが記述ミスがあったらすみません)

コメントありがとうございます。
 

引用:

これは、ローカルファイルに対し ADOでの接続、書き換え操作を行い希望通りに動作した
という認識であっていますか？
またその時のコードは、最初の質問文のコードと言う事でしょうか？

引用:

何をもって、ローカルではうまくいったと判断したのか？
　　　　データの中身も確認し 書き換えられているのを確認したのでしょうか？
ローカルに対し、うまく行ったコードの 接続先 を SharePointに変え 更新されるのか、されないのか？

引用:

全体フローについて 順番が違っているのであれば
転記ミスなのかどうか、回答者には判断つきません。
フローについては転記ミスが無い様に願います