kodu aşağıdaki gibi ekledim ancak hata alıyorum

Option Compare Database

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub MATERIAL_CODES_AfterUpdate()
If DCount("*", "YASAK", "[MATERIAL_CODES]=" & Me.MATERIAL_CODES) <> 0 Then
MsgBox (Me.MATERIAL_CODES & " kodu yasak tablosunda bulunmaktadır.")
End If
End Sub
End Sub

Private Sub MATERIAL_CODES_Click()

End Sub


hata pencereside ;

compile error:
Only comment map appear after End Sub,End function,or End Property