AccessVBAでレコード内を検索し、条件一致したレコードの値を、テキストボックスの値に書き直す

Dim Cn As ADODB.Connection
Dim Re As ADODB.Recordset
  
Set Cn = CurrentProject.Connection
Set Re = New ADODB.Recordset
  
Re.Open "T_製品マスタ", Cn, adOpenKeyset, adLockOptimistic
  
Dim flag As Boolean: flag = False
 
  Do Until Re.EOF
  
    If (Re("製品コード") = txt_製品コード) Then
      
       Re("製品名") = txt_部品名.Value
       Re("単価") = txt_単価.Value
       
       flag = True
    
    End If
  
    Re.MoveNext
  
  Loop

Re.Close
Set Re = Nothing

Cn.Close
Set Cn = Nothing

If (flag) Then
  MsgBox "修正しました"
End If

Me!txt_製品コード = ""
Me!txt_製品名 = ""
Me!txt_単価 = ""


Me!txt_製品コード.SetFocus