I'm trying to edit an existing database we have here.  The database contains all our donators, addresses, etc and is used to create mailing labels for thank yous, donations, etc.  There are forms set up in our access database for ease of use.  I did not set it up, but I am trying to edit it.  We needed to add 2 extra donation types, "Appeals" and "Retreatants", so I created those fields in the corresponding database and added 2 checkboxes to the form for those.

Here is what I have done so far:
Opened the Mailing Labels form and created a new button and named it corresponding with other buttons (button_mlappeal), then right-clicked and "Build Event".  Copied an event from other Mailing Label routines (see code) and renamed the table, query, and report names in the code.  Created the actual table, query and report (I copied existing tables, queries and reports, then changed the important fields), and tested running the query independently - works as expected.  It works exactly as the other buttons do when you run the query, so I know I've got that part done correctly

The problem is that the BUTTON doesn't run the query.  I'm not sure why...I can run the query and it does the exact same thing as the other buttons do, but when I click the button I created on the form, it doesn't run the query.  I don't know how to tell if I've got something mapped wrong with the button or not.  The properties for the button seems to be identical to the other buttons.

What am I doing wrong that the button doesn't work when you click it?  Keep in mind I am unfamiliar with database coding, but I do have a rudimentary understanding of structure, relationships, and I have experience coding in other languages, so I understand the principles here, just not the specifics of the software.  I am using Access 2007, but I CAN use Access 2003.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Private Sub button_mlappeal_Click()
On Error GoTo Err_button_mlappeal_Click
 
    Dim stDocName As String
    Dim SQL As String
    Dim rptgroups As Form_frmReportsGroupsMailingList
    Dim formname As String
    
    Set rptgroups = Form_frmReportsGroupsMailingList
    
 
    formname = IsLoaded("frmReportsGroupsMailingList")
 
    If formname = True Then
      rptgroups.Visible = False
    End If
 
 ' put the table name to be deleted in this bracket
 SQL = "DROP TABLE [tblDonator-Appeal-MailingLabels]"
 DoCmd.RunSQL SQL
 ' put the query to be run inside the Quotes
 stDocName = "qryDonator-Appeal-MailingLabels"
 DoCmd.OpenQuery stDocName, acNormal, acEdit
 ' put the report that has been called between the quotes
 
 
    stDocName = "rptDonator-Appeal-MailingLabels"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_button_mlHorizon_Click:
    Exit Sub
 
Err_button_mlHorizon_Click:
    MsgBox Err.Description
    Resume Exit_button_mlHorizon_Click
    
End Sub