Странное отображение значка закрытия формы интерфейса Аксес-2003, таблицы в MySQL

Option Compare Database
Private Sub Form_Close()
Dim stDocName As String
    stDocName = "gry_Bipyck_Vctavka_R_RA"
    CurrentDb.Execute stDocName
    stDocName = "gryAkt_Berc_PO_Ydalit_Tbl"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
        
    stDocName = "gryOpov_O_Novoi_Bepcii_PO_5"
    CurrentDb.Execute stDocName
End Sub
 
Private Sub Form_Deactivate()
Dim stDocName As String
 
    
    
If CurrentDb.OpenRecordset("gryOpov_O_Novoi_Bepcii_PO_4").EOF Then Exit Sub
    DoCmd.OpenReport "rptOpov_O_Novoi_Bepcii_PO_4", acViewPreview
    
    stDocName = "gryOpov_O_Novoi_Bepcii_PO_6"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    
End Sub
 
Private Sub Form_Load()
 
Me.idFIO_OTK.DefaultValue = DLookup("idCotrydnik", "Enter1")
Me.idFIO_Zapici.DefaultValue = DLookup("idCotrydnik", "Enter1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim stDocName As String
    stDocName = "gryBir_Kod_Izd_Amp_Bolt_Icp_B_Tbl_Ident_Izd"
    CurrentDb.Execute stDocName
 
    stDocName = "gryShtrixkod_Izdeliy_Vremy"
    CurrentDb.Execute stDocName
    
    stDocName = "gryIzd_Amp_Bolt_Icp"
    CurrentDb.Execute stDocName
    
    stDocName = "gryAkt_Berc_PO_Bipyck_RA_Otbor"
    CurrentDb.Execute stDocName
 
    stDocName = "gryAkt_B_Tbl"
    CurrentDb.Execute stDocName
 
    If CurrentDb.OpenRecordset("gryAkt_Ne_Berc_PO_Bipyck_RA").EOF Then Exit Sub
    DoCmd.OpenReport "rptAkt_Ne_Berc_PO_Bipyck_RA", acViewPreview
    
If MsgBox("OK - Выход, Отмена - Вернуться в форму и продолжить ", vbOKCancel + vbDefaultButton1) = vbCancel Then Cancel = True
  
End Sub
 
Private Sub Кнопка39_Click()
On Error GoTo Err_Кнопка39_Click
 
 
    DoCmd.Close
 
Exit_Кнопка39_Click:
    Exit Sub
 
Err_Кнопка39_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка39_Click
    
End Sub
 
Private Sub Кнопка49_Click()
On Error GoTo Err_Кнопка49_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmBipyck_Data"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Кнопка49_Click:
    Exit Sub
 
Err_Кнопка49_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка49_Click
    
End Sub
 
 
Private Sub Кнопка55_Click()
Dim s(), n, k, j, k0
    Me.Dirty = False
 
    With Me.Recordset
        n = .Fields.Count - 1
        ReDim s(n)
        For i = 0 To n
            s(i) = .Fields(i)
            If .Fields(i).Name = "Nomer_Izdeliy" Then k = .Fields(i)
        Next
            
        
        On Error Resume Next
        For j = 1 To Me.Поле22
            k = k + 1
            .AddNew
            For i = 0 To n
                If .Fields(i).Name <> "idIdentifikator_Izd" Then
                    If .Fields(i).Name = "Nomer_Izdeliy" Then
                        .Fields(i) = k
                    Else
                        .Fields(i) = s(i)
                    End If
                End If
            Next
            .Update
        Next j
    End With
    Err.Clear
End Sub
Private Sub Кнопка58_Click()
On Error GoTo Err_Кнопка58_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmBozvrati_Iz_OTK_OTK_RA"
    
    stLinkCriteria = "[idFIO_OTK]=" & Me![idFIO_OTK]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Кнопка58_Click:
    Exit Sub
 
Err_Кнопка58_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка58_Click
    
End Sub
 
 
Private Sub Кнопка78_Click()
Dim stDocName As String
stDocName = "gryAkt_Berc_PO_Bipyck_RA_Otbor"
CurrentDb.Execute stDocName
 
stDocName = "gryAkt_Berc_PO_Bipyck_Tolko_RA"
CurrentDb.Execute stDocName
 
stDocName = "gryAkt_B_Tbl"
CurrentDb.Execute stDocName
 
stDocName = "rptAkt_Ne_Berc_PO_Bipyck_RA"
    DoCmd.OpenReport stDocName, acPreview
End Sub
Private Sub Кнопка86_Click()
On Error GoTo Err_Кнопка86_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "frmBercii_PO_Aktualn_Knopki_Procm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Кнопка86_Click:
    Exit Sub
 
Err_Кнопка86_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка86_Click
    
End Sub
Private Sub Кнопка88_Click()
Dim stDocName As String
stDocName = "gryAkt_Berc_PO_Bipyck_RA_Otbor_Bce"
CurrentDb.Execute stDocName
 
stDocName = "gryAkt_B_Tbl_Bce"
CurrentDb.Execute stDocName
 
stDocName = "rptAkt_Ne_Berc_PO_Bipyck_RA_Bce"
    DoCmd.OpenReport stDocName, acPreview
End Sub
 
 
 
Private Sub Кнопка92_Click()
Dim stDocName As String
    stDocName = "gryBir_Kod_Izd_Amp_Bolt_Icp_B_Tbl_Ident_Izd"
    CurrentDb.Execute stDocName
 
    stDocName = "gryShtrixkod_Izdeliy_Vremy"
    CurrentDb.Execute stDocName
    
    stDocName = "gryIzd_Amp_Bolt_Icp"
    CurrentDb.Execute stDocName
End Sub