First I want to thank you for your very informative videos about Access.  Since I was assigned to my new job, I have been revamping our old database, and I have you to thank for most of the improvements/automation.  Recently, I have been trying to added tool where we can print mailing labels from our database, and I have followed your video 'How to Print Just One Label Anywhere on a Sheet With a Microsoft Access Report' to the 'T.' Unfortunately, I am receiving the error:  'The expression On Click you entered as the event property setting produced the following error:  User-defined type not defined.'  I did the append query instead of writing everything out, but everything else is exactly the same as shown in the video.  Below is the code I used:

Details

Private Sub PrintLabelBtn_Click()

            Dim S As String, HowMany As Long, X As Long

            S = InputBox('How many blank labels are needed?', 'Print Lable', '0')
            If S = '' Then Exit Sub
            If Not IsNumeric(S) Then Exit Sub
            HowMany = CLng(S)
            If HowMany < 0 Then
                        MsgBox 'Must be 0 of greater'
                        Exit Sub
            End If

            CurrentDb.Execute 'DELETE FROM LabelT'
            DoCmd.OpenQuery 'Mailing List_Confirmed'

            For X = 1 To HowMany
                        CurrentDb.Execute 'INSERT INTO LabelT (ACT_HEAD) VALUES ('''')'
            Next
            DoCmd.OpenReport 'Labels Mailing List', acViewPreview

End Sub

What did I do wrong?  Thank you for your time.