access2021 レコード移動を防ぐ

accessのフォームで「レコード移動時」に処理を置き条件に当てはまる場合だけレコードを開きたいのですが、キャンセルの処理が起動せずレコードの移動ができてしまいます。
どのように変更すればレコードの移動を防ぐことができるでしょうか？

コード

Private Sub Form_Current()
Dim Cancel As Integer
閉じる_ボタン.Enabled = True

If Me.レコードロック = True Then


MsgBox "別の使用者による変更があるためロックされました。更新が終わるまで変更はできません。", vbOKOnly + vbExclamation, "レコードロック"
Cancel = True

Else
キャンセル.Enabled = False
更新_ボタン.Enabled = False
End If
End Sub


フォームにて選択しているレコードソースのテーブルには「レコードロック」というレコードがあり、
Trueの時に開けないようにさせたいです。