【EXCEL VBA】VBA+ACCESS , SELECTして検索したレコードをUPDATEする

【EXCEL VBA】SELECTして検索したレコードをUPDATEします。

     
’DBを定義します。 
Set myCon2 = New ADODB.Connection
Dim myRs2 As New ADODB.Recordset
 FileName2 = "TEST.mdb"
 myCon2.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & FileName2
’SQL文を作成します。
         work_s = " SELECT * from data "
         work_s = work_s & " WHERE 管理番号='" & 管理番号 & "' ; "
         work_sel = work_s
 ’SQL　SELECT文を実行します。                      
  myRs2.Open work_sel, myCon2, adOpenStatic, adLockOptimistic, adCmdText
                         
’SQL　SELECT結果です。
                            Do Until myRs2.EOF
                                    r_cntx = r_cntx + 1
                                   ' work_i = myRsx.Fields("0").Value
’管理番号を取得 します。                  
                                    管理番号2 = myRs2.Fields("管理番号").Value
’取得したレコードを更新
           　　　　　　　　　　　　 myRs2.Fields("フィールド７").Value = "OK"
                                    myRs2.Update

' 次のレコードに進みます
                                    myRs2.MoveNext
                            Loop