Access VBA SQLで抽出した値をフォームに入れたい

Question

こんにちは質問させていただきます。

フォームに3連コンボボックスを作成しました。（以下の画像です）

この３連コンボボックスで製品を
製品大分類
製品名
製品型番
といった形で
最終的に製品型番を求めるために使用します。

そして、その製品型番に紐づいている製品コードを求めたいと思っています。

求めたらフォームの「製品コード」テキストボックスに
自動入力したいと思っています。

理由としては、「製品コード」テキストボックスに製品コードを入力すると
リレーションシップを組んでいるので
単価
個数
etc...
が自動入力されるからです。

それを実現させるために、以下のコードを書いているのですが
思った挙動になりません。

「このフィールドを変更する前に、まずレコードを保存してください。」
といったエラーが出ます。

Private Sub 製品型番_AfterUpdate()
Dim cn As ADODB.Connection    'Connectionオブジェクト
Dim rs As ADODB.Recordset     'Recordsetオブジェクト
Dim mySQL As String           'SQLステートメント


'接続
Set cn = CurrentProject.Connection

'レコードセットを取得
Set rs = New ADODB.Recordset
mySQL = "SELECT * FROM 製品マスタ " _
& "WHERE 製品型番 = '" & Me!製品型番 & "'"

rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic
'確認
If rs.Supports(adUodate) Then
MsgBox ("編集可能です")
Else
MsgBox ("編集できません")
End If

Do Until rs.EOF

Me!製品コード = rs!製品コード
rs.MoveNext
Loop



'終了

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

補足資料です

よろしくお願いいたします。